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AS-1000 


o micro que cresce com você. 


AS- 





CARACTERÍSTICAS TÉCNICAS: 


* 16 K bytes de memória iniciais 
* Expansão interna para 32 e 
48 K bytes 


* 8K bytes de memória EPROM 
“mM r Z-80A 
«Tr de membrana com 
ação mecânica iva 
* 40 teclas e 154 funções 
* Basic e linguagem de máquina 
* Video normal ou reverso 
* Saída para qualquer impressora 
* Manipula até quatro cassetes 
com geração de arquivo 
lodem 


“mM 
es dick 


oysti 
hd mr File - 
* Fonte de aliment. 


ação 
embutida (110/220 volts) 
* Nível de leitura de gravação 
automático 


sms 


cs 


queens 
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Sã O Microcomputador AS-1000 
é uma ótima escolha para quem está 

iniciando na ciência da computação. Seus 

recursos de programação e sua concepção 

modular, porém, permitem que ele 

o acompanhe até as aplicações mais 

sofisticadas. 

O AS-1000 já nasce com uma biblioteca de 
milhares de programas para jogos, 
administração doméstica, aplicações 
comerciais e profissionais. 

O AS$-1000 é fabricado com a qualidade 
ENGEBRAS e garantido por um ano. 

Entre na era da informática com a escolha 
certa. A$-1000, o seu micro pessoal. 


Escreva-nos, sua correspondência não ficará sem resposta. 


E ENGEBRAS 


ELETRONICA E INFORMATICA LTDA, 
Rua do Russel, 450 - 3º andar 

cep 22210 Rio de Janeiro - RJ 

Tel.: (021) 205-4898 
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De repente, você descobre que a crise é geral 

Crise no faturamento, porque as notas fiscais são emitidas muito 
devagar. Crise na folha de pagamento, porque as alterações 
salariais são cada vez mais frequentes. Crise no planejamento 
financeiro, estrangulado pela irregularidade da cobrança e a 
pressão do contas a pagar. 

E de crise emcrise você descobre que chegou a hora de uma 
decisão inadiável: a compra de um Cobra 305, o microcomputador 
profissional. 

O Cobra 305 põe sua empresa em ordem num apertar de dedos. 
Ele emite notas fiscais, controla o estoque, faz o faturamento, 
programa a cobrança e o contas a pagar, faz a folha de pagamento, 


elabora os mapas de vendas, controla a comissão dos vendedores. 


mesLitem de PaINHS 









emite as guias para recolhimento de impostos e encargos sociais. 
Tudo com muita economia de custo e nenhuma chance de erro. 

Como você vé, o Cobra 305 não faz milagres. Ele apenas permite 
que você tenha informações atualizadas o tempo todo e possa 
tomar suas decisões com mais q eis 

Se você também quer sair da crise pela porta da frente, contate a 
Cobra e assista a uma demonstração do Cobra 305, omicro 
profissional. 


mem Cobra 305 5: 
profissional. 


e RAMCARD * SOFTCARD * VIDEOTERM * SOFTVIDEO SW e PROGRAMMER * PROTOCARD * INTF. DISKS 
e INFT. PRINT-e SATURN 128K RAM. * SATURN 64K RAM. * SATURN 32K RAM. * RANA QUARTETO * MICROMODEM II 
* MICROBUFFER Il * MICROCONVERTER Il HE MICRO VOZ Il HE ULTRATERM EE ALF 8088 CARD 
HE ASO0 DISK CONT EE MULTIFUNCTION CARD 


MICROCRAFT MICROCOMPUTADORES LTDA. 
ADMINISTRAÇÃO E VENDAS: AV. BRIG. FARIA LIMA, 1.664 - 3º ANDAR - CJ 316 - CEP 01452 
FONES (011) 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL 
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1 CICLOTRON: SUPERE 
ESTA BARRA! — Um jogo 
de dupla bastante criativo este 
que Hendy Takeshi Yabiku nos 
traz para a linha TRS-80 
modelo III. Muito reflexo e 
tiradas estratégicas serão 
necessárias na perseguição 
implacável que se travará entre 


P&D Sistemas Fletrônicos S.As 


SUMÁRIO 





Sistar as 





TO TECLADO À MODA DA 
CASA — Você poderá 
redefinir o teclado de seu 

micro compatível com o Apple sem 
precisar modificá-lo a nível de 
hardware. É o que nos mostra 
Carlos Alberto Diniz com o 
utilitário que desenvolveu para esta 
finalidade. 





você e seu adversário. 


PESCARIA EM ÁGUAS 

ELETRÔNICAS — Pescar é 
um lazer solitário e relaxante 
por excelência. Foi este clima 
que Nelson Hisashi Tamura 
procurou passar para este jogo 
que roda nos micros da 
linha Sinclair. 


1 — Prip EM SERRA PELADA — Programa 
de Renato Degiovani. 


2604: AMPERSAND — Artigo de 
elson Filho. 


ARRISQUE E PETISQUE COM SEU MICRO — 
Artigo de Wilson de Carvalho Júnior. 


3 LOJAS DE MICROCOMPUTADORES — 
Parte final da tabela. 


APPLE PADDLE: FAÇA VOCÊ MESMO — 
Artigo de Evandro Mascarenhas de Oliveira. 


sr a — Programa de 
5 Helvecio C. R. Netto. 


o TRAVESSIA — Programa de 
ustavo Egídio de Almeida. 


565 PAC: SAIA DESSA SE PUDER — 
Programa de Walmir Scaravelli. 





6 EDITORIAL 20 BrTS 
8 XADREZ 23 CONVERSÃO 
10 CARTAS 29 LIVROS 





SEÇÕES 


JOYSTICK: FUNDAMENTAL 
8 OU ACESSÓRIO? — 
MICRO SISTEMAS lança a dúvida 
e tece comentários a respeito 

das questões que rodeiam 

o mercado nacional. No mesmo 
artigo. um box sobre os mais 
recentes modelos de joysticks 
| norte-americanos 


5 CADASTRO DE CLIENTES — Programa de 
Newton Braga Júnior. 


62/15 BASE: O TIRO DO CANHÃO — 
Programa de Armando Neves. 


COBRA PEGA RATO E... “Ó”! — Programa 
de Cláudio Esperança. 

BOLA DEMOLIDORA... REBATA ESSA! — 
Programa de Luiz Gonzaga de Alvarenga. 


quo DE FÓRMULA 1 — Programa de 
Daniel José Burd. 


pé RESISTA AO ATAQUE — Programa de 
Paulo Prado Júnior. 


7 CURSO DE ASSEMBLER — XII 


CUIDADO... OS ASTERÓIDES VÊM AÍ — 
Programa de Sérgio Henrique Jarreta. 


OS PALPITES DA MICROZEBRINHA — 
Programa de Nelson Hisashi Tamura. 





55 CLASSIFICADOS, CLUBES 
E MENSAGEM DE ERRO 


68 cursos 


74 DICAS 
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chamos 83 mencionando a evo- 

lução do mercado brasileiro de 
microinformática no que diz respeito à 
indústria de equipamentos e periféricos 
e às empresas de prestação de serviços e 
comercialização, bem como, principal 
mente, referindo-nos às revistas especia- 
lizadas e seu lugar de destaque enquanto 
fonte de informações. 


N o editorial do número passado, fe- 


Muitas vezes informações são dift- 
ceis. Dificeis no sentido de que a indús- 
tria não as divulga. Difíceis pois muitas 
vezes os manuais são omissos ou pouco 
explicativos sobre determinados assun- 
tos. Difíceis enquanto houver a tendên- 
cia de se repetirem vícios de concentra- 
ção de conhecimento — e outras defor- 
mações e insuficiências sócio-culturais 
dai advindas —; fatais por se tratarem, 
no caso, de informações técnicas, sobre 
um assunto amplo e fascinante em que a 
resposta a uma divida é prontamente 
substituída por outra interrogação. 


Esta tendência é expressa por aquele 
“achei um livro ótimo, mas não conte 
para ninguém”, ou “fiz um programa 
fantástico, mas não dá para te arrumar”, 
ou ainda numa situação conhecida: con- 
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sigo uma cópia do “Amigo Pirata”, ou 
de qualquer outro software de fora,e 
guardo a sete chaves; pirateio o pirata; 
ponho um anúncio classificado na revis- 
ta e deixo numa loja para demonstra- 
ção (“vou ficar milionário!”"); vendo 
uma matriz" e... das cópias se encar- 
regam os outros piratas. 


Esta tendência se explica pelos so- 
nhos que nos trazem aquela “hipnose” 
cultural de que continuamos a sofrer. 
Neste mercado, certamente nosso espe- 
lho são os EUA: os jogos, joysticks, im- 
pressoras, light pens, gráficos de alta re- 
solução, os calcs, os stars, as maçãs, 
amendoins, jovens milionários, executi- 
vos de garagem e tudo mais que essa fan- 
tástica sociedade sempre terá à nossa 
frente, em qualquer departamento ou 
setor, salvo amplas alterações nas rela- 
ções de convivência internacionais, no 
momento fora de nosso alcance de visão. 


Entretanto, não há novidade alguma 
nesta revelação. Como muitos já tiveram 
a originalidade de dizer, não devemos 
reinventar a roda, donde é certo que 
muito do brilho dos softs, hards e peri- 
féricos que hoje não conhecemos, ama- 
nhã certamente já teremos adaptado. 
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Adaptado. Melhor ainda: desenvolvido, 
evoluído, criado. Chegaremos lá. 


E se os veículos de informação espe- 
cializada conseguiram o referido suces- 
so, desejamos começar 84 homenagean- 
do aqueles que efetivamente nos tém 
ajudado a crescer. A eles MICRO SISTE- 
MAS dedica sua edição de janeiro: nos- 
sos colaboradores, que nos tém enviado 
sistematicamente seus programas, dicas 
e descobertas. 


Consideramos que este número refle- 
te bastante do que o pessoal tem desen- 
volvido por aí. Boas telas, bom movi- 
mento, apresentações que demonstram 
preocupação com clareza de instruções. 


Podemos garantir ao leitor um bom 
divertimento ao longo de nossas páginas, 
e ficamos aqui ansiosamente aguardando 
suas impressões. 


MICRO SISTEMAS é uma publicação mensal da 


Análise, Teleprocessamento e 
Informática Editora Ltda 
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INSCIeva 
O seu Uniiron 
ho piano (le 
EXPUNSÃO. 



























Estes são os planos de expansão para o seu Unitron apl. 
Sem demora nem fila de espera, basta você fazer a inscrição que 
eles começam a funcionar imediatamente. 


Plano 1 - Expansão de memória com + 32 ou + 64 ou + 128K. 

Plano 2- Impressora paralela de textos ou gráficos. 

Plano 3-Microprocessador adicional Z - 80 (CP/M). 

Plano 4- Vídeo com 40 ou 80 caracteres por linha. 

Plano 5- Interface R$-232C para impressora ou comunicações 
(ligação via MODEM - redes ou grandes computadores). 

Plano 6- Disco flexível de 5 1/4" ou 8” - (isolados ou simultâneos). 

Plano 7- Disco rígido (Winchester 5Mb). 

Plano 8-Saída de vídeo à cores PAL-M ou RGB. 


Plano 9- Sintetizador de voz e sons. 
Plano 10 - Digitalizador de imagens. 


PEL DS a K 
hs ie TE ma Sa 


Mais um serviço Unitron. 









Enxadrista experiente, Luciano Nilo de An- 
drade já escreveu para os jornais “Correio da 
Manhã”, “Data News” e “Ultima Hora” e pa- 
ra a revista “Fatos & Fotos”. Luciano é econo- 
mista, trabalhando no Ministério da Fazenda, 
no Rio de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
últimas novidades do Xadrez jogado por com- 

putadores, estarão sempre presentes em 
MICRO SISTEMAS. 
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Um micro alemão 
na União Soviética 


revista de xadrez 64 de setem- 
Ã bro, editada em Moscou, traz 

um artigo de B. Pimonov apre- 
sentando o micro SC-2, fabricado na 
República Democrática Alemã pela fir- 
ma Funkverk. 

Depois de citar as possibilidades do 
micro, comuns aos de sua classe, o Dr. 
Bernd Braw, representante da fábrica, 
disse: “Gostaria que nosso filho agradas- 
se aos aficionados soviéticos. Temos es- 
perança de que eles o comprem”. 

Pimonov conta que o aparelho levado 
à redação da revista foi aprovado com 
êxito. De bela aparência, ele resolveu os 
problemas que lhe foram apresentados e 
ganhou uma partida do fotógrafo. 

A seguir, reproduzimos a partida jo- 
gada por Pimonov, de brancas. Não foi 
mencionado o nível em que o micro 
jogou, isto é, a relação tempo/jogada. 

B. Pimonov x Micro SC-2 
Abertura Giuoco Piano 

1-—P4R P4R; 2 —- C3BR C3BD;3 — 
B4B. B4B; 4 — P3BD C3B; 5 — P4D 
PxP; 6 — PxP B5C+; 7 — C3B. “Inicial- 
mente pretendia jogar 7 — B2D, mas 
resolvi verificar se o micro conhecia a 
velha continuação italiana”. 7 — ...CxP; 
8 — 0-0 BxC. “Parece que conhece. De 
outro modo, seguiria a continuação de 


8 


Greco 8 —... CxC). O que sabe ele do 
ataque Múller?”” 9 — P5D. “Mas aqui me 
lembrei que, com a resposta 9 —... C3B, 
as brancas perdem um peão”. 9. — 

C4R; 10 — PxP CxB; 11 — D4D. “De- 


pois desta jogada, ofereci empate”. 


Mada Ss 
mo Bs 
me 


fe 
ma 


Posição depois de 11 — D4D. Infelizmente, o 
precoce empate não permite avaliar a força do 
SC-2. O que ocorreu mais parece um teste de 


memorização. 





mo ; 
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Respondendo ao leitor 
ESC SEDE E SI CE SS et O mem 


Nelson Adriano Brazys, de São Pau- 
lo, leitor desta seção, pergunta o que é o 
Elo e como o mesma é medido. Como 
esta pergunta é formulada frequente- 
mente, farei um resumo a respeito. 


O objetivo do Sistema Elo (ou sim- 
plesmente Elo), criado pelo Prof. Arpad 
Elo, da Hungria, é estabelecer um méto- 
do estatístico para medir os resultados 
enxadrísticos obtidos por cada jogador. 


Utilizando instrumental matemático, 
é calculada a expectativa do jogador em 
função do seu Elo com os demais. Se 
seu resultado for superior ao esperado, 
seu Elo sobe; caso contrário, seu Elo 
desce. Se for igual ao esperado, seu Elo 
permanece inalterado. 


O Elo reduz erros e maestria técnica 
a simples números (para desespero de 
numeroso contingente de enxadristas). 
A uma partida ganha com técnica impe- 
cável ou com combinação brilhante e 
profunda é atribuído o mesmo valor da 
que é ganha por um jogador que, depois 
de estar em posição perdida, vence em 
virtude de erro grosseiro do adversário. 
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Imaginação, intuição, maestria não 
influem nos resultados tabulados. O Elo 
mede sé os resultados e não o talento. 


Alguns dos requisitos necessários e 
mais comuns para a obtenção de Elo por 
um jogador noviço são: participar de 
torneio com pelo menos nove rodadas; 
metade dos competidores, pelo menos, 
devem ser titulados; 1/3, no máximo, 
pode ser da mesma federação; ter, no 
máximo, 20% de jogadores sem Elo; a 
competição deve ser dirigida por um 
árbitro internacional; não mais de 45 
jogadas para duas horas; não mais de 
uma partida por dia (em casos excep- 
cionais são permitidas duas). 


É considerado com força de GM o 
jogador com Elo a partir de 2.450, Ml a 
partir de 2.350 e MF (Mestre da Fide) a 
partir de 2.250. 


Henrique Mecking (Mequinho) é o 
jogador brasileiro de maior rating 
(2.625). A seguir vem Sunyê com 
2.480, Trois com 2.395 etc. 


Aos ex-campeões do mundo foram 
computados os seguintes Elos: Steinitz 
(2.650), Lasker (2.720), Casablanca 
(2.725), Alekhine (2.690), Euwe 
(2.650), Botowinnik (2.720), Smyslov 
(2.690), Tahl (2.700), Petrosian 
(2.690), Spassky (2.680) e Fischer 
(2.780). 





Sutilezas em finais de peões 





Svacina x Múller 
Viena, 1941 
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Scholz x Lorenz 
Correspondência, 1964 
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Diagrama A — As pretas jogam e ganham 
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Diagrama B — As pretas jogam e ganham 
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EL 8000 


Se seu problema é impressão... 


A ISA, Indústria de Impressora S/A, apresenta a EL 8000 
a impressora que prova na prática sua capacidade de 
trabalho. Impressão matricial 9 x 7, permitindo até 

8 vias numa velocidade de 100 CPS. Equipado com 
memória de 2 K caracteres, utilizando formulário 
contínuo folhas soltas ou bobinas de papel. De 

80 até 132 caracteres por linha; interface 

serial RS 232 e paralelo. Velocidade 


de comunicação de 9.600 B.P.S. 
8 diferentes tipos 
de impressão. 


ISA é 
a solução. 


INDUSTRIA DE IMPRESSORAS S.A. 
Escritorio: 

R. Prot. Jose Marques da Cruz, 234 
Fabrica 

Rua Centro Africana. 74 

Teis. (011) 240:2442 sa 4939 


x: (011) 369261 M 
São Paulo SP 
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GRECODATA 


SISTEMA DE PROCESSAMENTO DE DADOS E TELECOMUNICAÇÕES 

MATRIZ: Rio de Janeiro R. Republica do Libano. 61 12º and. 

Tel. (021)221-4677 Telex (021) 30187 

FILIAIS:S. Paulo R. Frei Caneca, 1119 Tel. (011)284-8311 Telex (011)22191 
Brasilia SCS02 BlocoCn'41 SL 01 Tel. (0612251588 Telex (061) 1750 
Porto Alegre Rua Santa Terezinha, 300 Tel :(051)32 3564 Telex (051/2144 
Gosnia Belo Horizonte Salvador 





O sorteado deste mês, que receberá uma 
assinatura de um ano de MICRO SISTEMAS, 
é Pedro Paulo Luz C. Filho, de Brasília. 





(...) Tendo comprado um NE-Z8000, da 
Prológica, e não dispondo de muito tempo 
para manuseá-lo, ia tudo bem. Até que co- 
mecei a utilizá-lo mais e aí surgiu um proble- 
ma que se foi agravando com o tempo: na 
digitação de programas mais longos, o cursor 
sumia juntamente com a imagem, e só reapa- 
recia se eu desligasse e tornasse a ligar o mi- 
cro. Assim foi, até que um dia a imagem de- 
sapareceu de vez. 

Depois de procurar várias oficinas técni-, 
cas e nenhuma assumir a responsabilidade 
pelo conserto, resolvi abri-lo e tive uma sur- 
presa das mais desagradáveis: vi o que se po- 
de chamar de uma verdadeira “gambiarra”, 
onde vários Cls não estavam soldados à pla- 
ca do impresso, mas sim colados, de pernas 
(pinos) para cima, em outros Cls. Como isto 
só não bastasse, havia várias partes do circui- 
to impresso interrompidas e eram feitas pon- 
tes para outras partes do mesmo (...). 
Reginaldo dos Santos Chaves 
Volta Redonda-RJ 


Enviamos, como sempre, sua carta para a 


Prológica, e esta respondeu: “Com relação a 
sua carta enviada para a conceituada revista 
MICRO SISTEMAS, gostaríamos de esclare- 
cer-lhe no que diz respeito ao nosso equipa- 
mento. 

Como todo equipamento eletrônico, o 
NE-Z8000 pode apresentar defeitos, e o pro- 
cedimento correto para solucionar esse pro- 
blema é levá-lo a uma assistência técnica 
torizada Prológica, onde técnicos especi 
zados e treinados pela Prológica irão repa- 
rar seu micro sem nenhuma dificuldade. 

Com relação aos Cis que não se encon- 
tram no circuito impresso, isso é decorrên- 
cia de modificação no projeto original, uma 
vez que estamos continuamente procurando 
aprimorar nossos produtos. 

A resolução gráfica do NE-Z8000, que 
V. Sa. considera um grave defeito, assim não 
nos parece, uma vez considerada a relação 
custo-benefício.” 

Eng. Dan Guinsburg 
Gerente de Produtos-Computadores Pessoais 
da Prológica 








(...) Minha crítica é quanto ao fato de ter 
encomendado uma impressora para o TK no 
dia 11/01/83, na Tesbi Engenharia Ltda., 
pagando no ato da encomenda a importân- 
cia de 47 mil cruzeiros, e até a presente data 
não terem entregue tal encomenda (reclama- 
ção baseada no prazo de entrega de 90 dias), 
tendo que solicitar meu dinheiro de volta. 
Ricardo Alexandre Marinho 
Rio de Janeiro-RJ 


Mandamos a sua carta, Ricardo, para a 
Microdigital e para a Tesbi. Respectivamen- 
te, nos responderam: 

“Gostaríamos de informar que a respon- 
sabilidade de tomar sinal por conta de um 
produto nosso é do revendedor”. 

Ricardo Tondowski 
Dept. de Relações Públicas da Microdigital 


“Com relação à carta do leitor, expcmos 
o seguinte: 
1 — Não é nossa culpa se a Microdigital 
anuncia produtos e depois não os fabrica, 
deixando seus usuários insatisfeitos; 
2 — Não entendemos a crítica do leitor co- 
mo sendo para a nossa empresa, pois ele nos 
pareceu claro com a insatisfação não por 
não ter tido seu dinl devolvido, e sim 
por não ter podido adqu impressora. 

Assim como este, vários outros usuários 
se sentiram frustrados por não poder adqui- 
rir a impressora para o TK, mas em hora al- 
guma os revendedores podem arcar com tal 
responsabilidade, sendo que efetuamos a de- 
volução a todos que solicitaram (...)”. 
Angela Cristina Belsito 
Dept. Comercial da Tesbi 











Gostaria de registrar junto a MICRO SIS- 
TEMAS, e aos leitores desta conceituada re- 
vista, meu desgosto, e talvez ignorância, 
quanto ao programa PROTEXTO, proces- 
sador de texto desenvolvido (7?) pela Digitus. 
Possuidor de um DGT-100, adquiri o referi- 
do programa numa revendedora autorizada. 
O manual com instruções é bem razoável 





A melhor casa do Rio para 


Os executivos que vêm ao Rio, principalmente a negócios, agora podem contar com 
uma casa que transforma sua rápida passagem pela cidade maravilhosa em 
momentos inesquecíveis. Em pleno coração de Copacabana, estamos de braços 
abertos e prontos para oferecer dos mais simples aos mais sofisticados modelos e 
acessórios que fazem nossa atividade tão excitante e tão imprescindível nos dias atuais. 
Oferecemos o que existe de melhor, em termos de qualidade. E a preço e condições de 
pagamento (é, nós financiamos) que nenhuma outra casa do ramo oferece. 

Nossa filial da Rio Branco também tem o mesmo atendimento e o mesmo preço. 
Quando você estiver no Rio, passe bons momentos conosco. Nossos preços são tão 
em conta que de repente a diferença dá para cobrir seus custos de passagem e estadia. 
Você e sua empresa vão descobrir como é fantástico, e barato, o mundo dos 
microcomputadores. 

Veja esta oferta aí ao lado, por exemplo. 

O ApII da Unitron é a solução perfeita para as pequenas, médias e grandes 

empresas, profissionais liberais, condomínios e o dia-a-dia do lar. 

E solução também no preço. Na Clappy, você encontra o ApII pelo menor preço da 


praça e com macro soluções de pagamento. 


Copacabana: Rua Pompeu Loureiro, 99 
Centro: Av. Rio Branco, 126 loja e sobreloja € Tels.: (081) 
2535-5595 € 257-4398 6256-7175 € 264-2096 





(...), mas ocorreu o seguinte: ia tudo bem 
até que, após ter gravado um texto em fita 
K-7, tentei recuperá-lo. Não consegui suces- 
so, apesar de possuir o programa há dois me- 
ses, e depois de várias tentativas. 


O programa “aborta” e não há nem meio 
de dar o RESET. Fui até a revendedora au- 
torizada e tentei com um computador e gra- 
vador diferentes, constatando, então, que o 
mesmo erro acontecia lá também. Já enviei 
uma carta à Digitus, que ficou sem resposta 
até agora. Ficaria muito grato se vocês pu- 
dessem me ajudar. 


(...) Li recentemente em uma publicação 
norte-americana que o mesmo problema es- 
tava acontecendo, mas com outro programa, 
que é o EDTASM versão 1.0. Como acredi- 
to que os programas da Digitus sejam basea- 
dos em similares norte-americanos, ocorreu- 
me que o mesmo pudesse acontecer com o 
PROTEXTO. Quem sabe? 

Pedro Paulo Luz C. Filho 
Brasília-DF 


Remetemos, como é nossa norma, sua 
carta para a Digitus, que nos respondeu: 
“Em atendimento a vossa solicitação, infor- 
mamos-lhes que o programa PROTEXTO 
funciona normalmente no DGT-100, sendo 
possível que a gravação em poder do Sr. Pe- 
dro Paulo esteja danificada. Para resolver o 
problema, já remetemos nova fita ao usuário. 

Gostaríamos, entretanto, de esclarecer 
que somente agora foi tomada uma atitude, 
em vista de não termos recebido a carta ci- 
tada pelo Sr. Pedro Paulo, pois esta não 
consta do nosso livro de registro de entrada 
de correspondência. Informamos ainda que 
este assunto — cartas recebidas dos usuários 
— muito nos preocupa e tomamos cuidados 





especiais para que todas sejam respondidas, 
sendo, portanto, muito difícil que uma cor- 
respondência não seja respondida ou atendi- 


Diretor da Digitus 





Solicitamos que o seu prestigioso veículo 


de informação, a revis: ICRO SISTEMAS, 
retifique a colocação feita pelo leitor Ivo de 
Aquino (publicada na Seção Cartas de MS 
nº 25, com o título “A função USR(X)"), 
pois o revendedor autorizado da Prológica 
em Florianópolis e na região sul de Santa 
Catarina é nossa empresa (Entel Engenharia 
de Telecomunicações Ltda.). 

José Mendes Damian 

Diretor Comercial da Entel 


Gostaríamos de informar que, por nosso 
lapso, esquecemos de verificar que no texto 
dos anúncios veiculados em MS de junho e 
julho de 1983 constava a informação de que 
o Engenheiro Cesar da Costa era o coordena- 
dor dos cursos de Técnicos Especialistas em 
Manutenção e Programação de Mínis e Mi- 
cros de nossa instituição educacional-Enge- 
micro. Solicitamos a retificação desta in- 
formação pois, desde março de 1983, o 
Engenheiro Cesar da Costa não coordena 
mais estes cursos. 

Alex Damazio 
Diretor da Engemicro 


Agradeço ao pessoal de MICRO SISTE- 
MAS por-ter publicado o meu anúncio na 





Seção Clubes, o quai está dando um retorno 
acima do esperado, evidenciando mais uma 
vez a penetração da revista no meio micro- 
informatizado. 

Rodrigo Cesar Santiago 

Belo Horizonte-MG 


O objetivo desta é parabenizar essas con- 
ceituadas entidades, ou seja, a Micromaq e a 
MICRO SISTEMAS, pela inigualável idéia de 
proporcionar a nós, leitores, a maravilhosa 
oportunidade de sermos contemplados com 
um equipamento como o Color 64: aí está 
um exemplo de ilimitada consideração. 

O meu desejo sincero é que o Senhor 
Deus conceda, a cada um de vocês, mente 
aberta e o maior ângulo de visão possível, a 
fim de que o sucesso e a funcionalidade seja 
uma constante no desempenho diário dessa 
tão honrosa tarefa, que é fazer com que a 
nossa Nação seja embalada pelos braços da 
Informática. 

Valmir Rodrigues da Silva 
São Bernardo do Campo-SP 





(...) Há uns meses atrás comprei o micro- 
computador Maxxi, da Polymax. O proble- 
ma é que não consigo entrar com cor nos 
meus programas gráficos. Entrei em contato 
cóm a loja e depois com o fabricante, e am- 
bos me disseram que é problema do modula- 
dor de RF, que não funciona em determina- 
dos lugares. 

Fiz modificações na minha TV para eli- 
minar o modulador, e mais uma vez fiquei 
decepcionado, pois, mesmo sem modulador, 





executivos de alto nível. 





CPU com 48X, drive, monitor, impressora Monica da Elebra. 5640RTN's 
Entregamos em todo Brasil pelo reembolso Varig. 
COPACABANA: Aberta diariamente das 10 às 20 horas e aos sábados das 

10às 15horas. 





* GLOBUS 


= 
j 


- deal para qualquer 
— microcomputador 
existente no 
mercado. 


não consigo entrar com cor. Comprei o com- 
putador baseado em propagandas (como a 
da revista MICRO SISTEMAS), onde, além 
de outras caracter ísti apresentadas, enfa- 
tiza-se a disponibili de 16 cores em mo- 
Impressora M-100 X do gráfico baixa resolução, selecionável por 
de 132 colunas software, e mais seis cores quando em modo 
gráfico alta resolução funcionando no siste- 
ma Pal-M. 

Espero contar com a revista para que es- 
ta carta não fique somente como um apelo. 
Nabor dos Santos 
Campo Grande-MS 


Como é de praxe, enviamos sua carta pa- 
ra a Polymax, e esta nos deu as seguintes in- 
formações: “O Maxxi é capaz de gerar cores 
em dois sistem: 
1. Sistema P; 
dos. 

2. Sistema N linha: verde, azul, vermelho e 
seus derivados. 

O sistema de cores adotado pelo Brasil é 





: verde, azul e seus deriva- 





Impressora matricial de impacto com o Pal-M. O sistema de cores do nosso micro- 
velocidade de 100 cps e impressão de computador é o NTSC (sistema utilizado 
132 colunas. nos Estados Unidos), adaptado ao sistema N 


linha e PaM pi que possa ser utilizado 
nos televisores nacionais. 

O sistema N linha é o sistema NTSC ope- 
rando com cristal Pal-M na frequência de 











Finalmente em produto SLSTER1) Mia. O sintoma PaLM porádio pejo 
Nacional com performance 0 pp 
inigualável: rao trama N linha. A desvantagem da não- 
* Velocidade reai de 100 cps | | Tarfeinaina ines siri 
* Gabdeça de impressao cor vermelha. 
a ad ão 
de 9 agulhas no Sar. dad RIO O irpgdete: 
e Sustentador de cabeça de oscilador estar fora da fregiiência de cor. Pa- 
impressão em duplo eixo 1. Hemove à parte euperior do Masc, rei 
. Capacidade gráfica rando os quatro especie de fixação que se 
ssa t rt ç 
e Flexibilidade de software 2. Na parta traseira do lado direito do Maxi 
. ab: ões. Ei 

é Interface dupla: a parto trassica é 6 painel rustálico tresro, 
Paralela e Série no centro, existê uma trava; localize-a visual- 
'á Compatibilidade Epsom e 3 Na opniao no lado de baixo do 
pacotes Apple II asso posso rod gare pecar 
i m uma chave de fenda, rave as travas 

E pleta de impressoras para | | srgsere fume 

4. R lentai rt ior d 

DO micos elane dh ER Do pompa as eia 
à p Ç E Petro fixo à parte superior e o cabo de conexão do 
dispor de peças de reposição teclado com a placa do Maxxi está na parte 
para entrega imediata. comia Paio não sensonnetó do. Do voc qui. 


ser desconectá-lo, certifique-se do modo co- 
mo está conectado para não invertêlo na 
hora da conexão. Levante a parte superior 
da caixa até a altura do painel metálico tra- 
seiro, desloque um pouco para a direita até 
visualizar parte da placa no lado esquerdo. 
sr a parte superior no próprio painel; 








no te o cabo de vídeo de seu televisor 
— == GLOBUS DIGITAL SA. no Mino. a unidade de disco no slot 6, e 


EQUIPAMENTOS PERIFÉRICOS 


carregue o programa Color Demosoft para 
MUITO MAIS DO QUE MÁQUINAS pilas ad) o ia ane guria 

unidade de disco, faça um programa gráfico 
SIGNIFICA SERVIÇO | | comeores 
Matriz e Fábrica: Rua Isidro Rocha, 1057 7. No lado esquerdo frontal da placa do 
CEP 21241 - Tel.: 372-4385 - Telex (021) 31991 Maxxi, na posição entre Al e B1, existe um 
GLDG - BR - Vigário Geral - RJ - Brasil capacitor variável chamado trimmer. Com 
Filial: Rua Stella, 515 - Bloco H - Grupo 21 uma chave de fenda pequena, ajuste-o fazen- 


CEP 04011 - Teis.: (011) 231-2586/571-4642 
Vila Mariana - São Paulo - SP 


VASTA REDE DE DISTRIBUIÇÃO Ê so 


omIZEZ 


do movimentos para a direita ou para a es- 
querda até a cor aparecer no televisor. No 
caso de aparecerem alguns caracteres irregu- 
lares no televisor e das barras de cores não 
desaparecerem do vídeo, continue ajustan- 
do. Se, por algum momento, a condição grá- 
fica desaparecer do vídeo e o programa pa- 
rar, recomece todo o processo de ajuste des- 
ligando o Maxxi, ligando-o novamente e car- 
regando o programa. 

Na borda esquerda da placa do Maxxi, 
existem marcadas letra: A até FeosCis 
da placa são contados squerda para a di- 
reita, sendo que o da esquerda &o N.1 e o 
mais à direita 6 o N.14. Oriente-se por estas 
marcas para localizar o Cl. 

Se as cores ainda não aparecerem, veri- 
fique na posição F14 da placa do Maxxi, no 
lado direito do Cl 7415259 se o Resistor 
é de 1 K.Se não for, substitua-o. 

Observação: os valores dos resistores são 
representados por cores, por exemplo: 
1K = marrom, preto, vermelho e dourado, 
sempre nesta sequência, sendo sempre a úl- 
tima cor metálica. Se nesta tentativa as cores 
ainda não aparecerem, comunique-se conos- 
co que teremos o maior prazer em aten- 
dé-lo.” 

Antonio Carlos Masotti 
Dir.de Planejamento e Marketing da Polymax 








Gostaria de propor à Redação de MS a 
organização de um curso de ALGOL, para 
divulgar esta linguagem. Também gostaria 
que a revista publicasse a sugestão para que 
algumas empresas ou cursos fizessem uma 
reportagem sobre o hardware de todos os 
micros existentes no mercado, para que as 
pessoas que não têm possibilidade de com- 
prar um micro possam conhecê-lo por den- 
tro. 

Ben-Hur Monteiro Barizon 
Rio de Janeiro-RJ 


Gostaria de fazer uma sugestão: vocês 
poderiam publicar uma matéria na qual es- 
tabelecessem uma correspondênçia entre os 
micros nacionais e os estrangeiros, ou seja, 
os compatíveis estrangeiros com os nacio- 
nais. Estou certo de que será de grande aju- 
da para Os novos e pequenos usuários, prin- 
cipalmente na escolha dos programas. 
Rodrigo M. de Andrade 
Rio de Janeiro-RJ 


Sou estudante de Engenharia e apaixonado 
por micro. Estou realmente satisfeito com a 
qualidade da revista, mas tenho uma suges- 
tao: por que vocês não publicam reporta- 
gens sobre cada tipo de BASIC de cada mi- 
cro? 

José Roberto Pereira de Santana 

Rio de Janeiro-RJ 


Queria sugerir uma seção só de jogos, ou 


, uma publicação especial de jogos que, acho, 
“é o desejo de muitos outros leitores de MlI- 


CRO SISTEMAS. 
Marcos K. Watanabe 
Guarulhos-SP 


Sugiro a implantação de uma matéria 
que tivesse um glossário de termos usados 
em microcomputação, para servir como fon- 
te de consulta para todos os leitores. 

José Roberto Pereira de Santana 
Rio de Janeiro-RJ 


Envie suas sugestões para MICRO 
SISTEMAS. Elas serão anotadas em nossa 
pauta e procuraremos, na medida do = 
possível, viabilizá-las. E 
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& SOLUÇÃO NÃO É PROBLEMA & 


não importa 0 tamanho de seu problem 
nós temos a solução na medida exata! 


LINGUAGEM BASIC 
16 K DE MEMÓRIA 
VELOCIDADE DE 
TRANSFERÊNCIA 14 VE- 
ZES MAIS RÁPIDA 


MICRO: 
LINGUAGENS COBOL, 
BASIC E FORTRAN 
64 K DE MEMÓRIA 
DUAS UNIDADES DE 
DISCO 


ACESSÓRIOS 


SOFTWARE º MESAS º DIS 
QUETES * ARQUIVOS € 
FORMULÁRIOS CONTÉ 
NUOS € ESTABILIZADORES 
DE TENSÃO € UNIDADES 


DE DISCO FLEXÍVEL 9 ETC. 


/ JA (q 
VENDA( 
“o 


PPS 


MODULAR LINGUAGEM BASIC VELOCIDADE 100 CPS 
LINGUAGEM BASIC 48 K DE MEMÓRIA MATRIZ9x7 

48 K DE MEMÓRIA ATÉ 4 DRIVES INTERFACE: 
COMPATÍVEL COM SAÍDA PARALELA SE- PARALELA 
SOFTWARE DO CP-500 RIAL SERIAL 





TRAÇADOR 
GRÁFICO 


IMPRESSORA: 


e VELOCIDADE 130 CPS VELOCIDADE 200 CPS e BPENAS 

e MATRIZ7x9 MATRIZ7x9 e ÁREA DE TRAÇADO 

e 132COLUNAS INTERFACE: 10 x 15 POL. 

e ORIGINAL +5 CÓPIAS PARALELA, é INTERFACE RS.232 
SERIAL 


APROVEITE! 


PROMOÇÕES ESPECIAIS € 
FINANCIAMENTO € LEA- 


SING 9 CONSÓRCIO 9 CAR- 
Filcres Importação e Representações Ltda. 


Rua Aurora, 165 — CEP 01209 — São Paulo — SP 
Telex 1131298 FILG BR — PBX 223-7388 — Ramais 2, 4, 
CARD, NACIONAL, ELLO. 12, 18, 19 — Diretos: 223-1446, 222-3458, 220-5794 e 
220-9113 - Reembolso — Ramal 17 Direto: 222-0016 — 220-7718 


TÕES DE CRÉDITO: CREDI- 








Se você se julga com coragem e capacidade para garimpar dias a fio, eis aqui 
sua grande chance. Mas lembre-se de que tudo vai depender de sua sorte e inteligência 








Aventuras 
em Serra Pelada 


e você achuu que um pas- 
seio pela Selva Amazônica 
era tudo, pode ir se prepa- 
rando, pois nessa aventura 
você será um incansável 
garimpeiro em busca do ouro e da for- 
tuna, mas antes será preciso algum 
trabalho de digitação. 

Comece pelo “Aventuras na Selva” 
(MS nº 23). O texto dizia que se gra- 
vasse em fita o Sistema Operacional e o 
Monitor. Pois bem, carregue-os no com- 
putador e proceda às alterações constan- 
tes na listagem 1. Essas modificações 
servem para tornar o Sistema Operacio- 
nal ainda mais poderoso e com ele exe- 
cutar algumas ações bastante comple- 
xas. 


Feito isso, digite RUN 9000 e come- 
ce a operar a entrada de dados do Moni- 
tor. Quando terminar, elimine o Moni- 
tor, apagando as linhas de 9000 a 9070. 
A partir daqui, NUNCA MAIS use RUN 
nem CLEAR, pois se o fizer, mesmo aci- 
dentalmente, todos os dados dos diretó- 
rios estarão perdidos e o programa para- 
rá com a indicação 2/11, ou seja, variá- 
vel não definida (O) na linha 11. Daqui 
não há saída e você terá que recomeçar 
todo o trabalho. 


Ainda quanto à digitação, vá sempre 
com muita calma e certifique-se de es- 
taz digitando tudo corretamente. Erros 
de digitação são fáceis de ocorrer, mas 
difíceis de ser localizados. 





14 





Renato Degiovani 





Listagem 1 


1 REM SIST. OPERACIONAL - V.Z 

3 REM MICRO SISTEMAS - 1984 

6 SAVE "SERRA PELADA" 

28 IF NOT INT (RND*55) THEN GO 
TO Bag 

21 IF T(1)<204 THEN GOTO 38 

22 PRINT AT 6,1;"INFELIZMENTE 
O GARIMPO DE SERRAPELADA FOI FEC 
HADO» 

AGORA VOCE TE 

RA QUE TENTAR NUMAOUTRA TEMPORAD 
A OU PROCURAR UM NOVO GARIMPO. 


E UMA PENA MA 
S A VIDA E ASSIM MESMO." 

23 PRINT AT 20,0; "PRESSIONE:", 
“IEBOUTRA TEMPORADA", "NOVO GARIMP 
o” 

PAUSE 4E4 

cLs 

IF INKEY$="N" THEN GOTO 7 
GOSUB Sega 

LET T(1)=8 

Goto 28 

IF C<LEN US$ THEN GOTO 51 
LET B=B+1 

IF A=P THEN RETURN 

GOTO 262 

LET T(A)=T(A)+CODE US (B+1)- 


IF 8$(2)="=" OR B$(2)="e" T 
HEN GOTO 405 
482 GOTO 420 
405 IF B$(2)="+" THEN LET T(3)= 


[4 
406 IF B$(2)="=" THEN LET T(4)= 
[) 


407 LET US=US( TO 2)+"R"+B$(2)+ 
"DAM 

488 GOTO 128 

nm IF NOT CODE B$(2) THEN GOTO 

602 IF W$(11)="N' THEN GOTO 658 

603 PRINT "  EIIIII QUE EXP 
LOSAO «cer,,," NAO DEVE TER SO 
BRADO MUITA COISA NO LOCAL." 

604 FOR A=1 TO O 

605 IF A=11 THEN GOTO 607 

696 IF US(A)=U$(11) THEN LET US 
(A)=m 

607 NEXT A 

608 LET US(11)=" " 

689 GOTO 28 

658 PRINT "ACHO QUE ISSO E O FI 
Me FOI BOM ENQUANTO DUROU. ce",,, 
»" DA PROXIMA VEZ NAO BRINQUE CO 
Mm EXPLOSIVOS." 

651 STOP 

806 IF NOT T(3) AND NOT T(4) TH 
EN GOTO 38 

Bl PRINT ,,99" ODODOPS...et,, 
so """BOCA-DE TRAIRA"", O MAIOR L 
ADRAODAS PARAGENS ATACOU NOVAMEN 
TE FICAMOS A ZERO" 

Bg2 LET E =2 
883 LET T(3)= 

884 LET des " 

BO5 LET US(9)=" " 

B06 LET R=R-1 

897 GOTO 20 





eliminar as linhas: 102, 410, 50 
6, 501, 502, 503. 504. 
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di a ii 


fd 
| 


Ro) 





o 





rá 


obs: 
um espaço 


NUMERO DE POSICOES: 44 
..S.. 


ansEa* 
«H9$4/ 


alias 


ajalas 

>aTuo 
ER] 
>8.+.1 


E..n.5 


vOsansunt 


NUMERO DE OBJETOS: 37 


«4UM LOCAL 
«4UM CAMINHAO 


«SUMA ESCADA 
DSUMa CORDA 
Maum RELOGIO 
J4um TELEFONE 
D4um MARTELO 
74um POSTE 
«1DINHEIRO 
Kk4um PNEU 
DIDINANITE 
ESUMA CHAVE 
LSUMA MALA 
«LINFORMACOES 
«12579384 
«12861745 
P4uUM MACACO 
«SUMA PENEIRA 
Paum CANO 
BSuMma FACA 
«1GASOLINA 
ISUMA GARRAFA 
B4um BALDE 
I4um Coro 
D4um REVOLVER 
DSUNS PREGOS 
«30 ALEMAO 
BICAIXOTES 
«1TABOAS 
DSUMA PICARETA 
«1OURO 

R4UM CADERNO 
«4UM BARRANCO 
30 DONO 

J4um ISQUEIRO 
«SUMA PORTA 
Náum AVIAO 


NUMERO DE PALAVRAS: 


ENORTE 
$suL 
sLESTE 
DESTE 
ENTRE 
SUBA 
SAIA 
DESCA 
>PEGUE 
<SOLTE 
=EXAMI 
+ROUBE 
-QUEBR 
*PROCU 
/LIGUE 
;DESLI 


»DESAM 
*AMARR 
gcoLoa 
1TEMOS 
2FACA 
3MATE 
4ABRA 
SFECHE 
Z2CAVE 
6PULE 
TDESMA 
BPUXE 
BDE 
9REINI 
ALEVAN 
>APANH 
BPONHA 
6SALTE 


XE 


DHORAS 
EVENDA 
FQUANT 
GTROGU 
HCONPR 
IGARIM 
IPECA 

KDISOU 


MOVIMENTOS 
CONDICIONAIS: 14 


N>1H=s 
N>1H€S 
D4 

Da 
L=H+5 
K=H=5 
L=H<5 


B L=H25 
E NIPHKS 
12 NI1PHBS 


NUMERO DE ACOES: 185 


=(M(0:£05 
-(n(K:F 
=$0-N?:D8 
E(M(DISUPSY= 
z2B=R(a(K)F 
F=X7=D? 

zz0( 

2$30-D) 
6+0/M+ ney; 
ZZC+COOP<K?F 
Z+MsD> 
>+E+)KBD+F 
>BERBRF 
4$IC-MeTAC*D= 
>*Esg+F 
H(E(X7BUPYA 
Z28(X?7L)D; 
HREPXPBVPY6 
ZZB?X97K(F 
ZZR=D, 
ZZR=T= 
>PEPN(+B9F 
=7M?T9DA 
I£NDM10=2031 
ECNEIS*DS 
+(E(II6DD 
+MEPBPK(F 
>>E>Ne+B>F 
ZZR+B=0+F 
+>E>B>K4F 
H>E>X28V?YI 
228>X97K+F 
23 M>M9NCROYN 
ZZK-HHB=DQ 
+=)580-CUPEYL 
ZZRCA:F 
=8N0TDS 
Z28-X?7K; F 
Z2B9XP7K/F 
>2E282F 
ZZ80X97K*F 
>3E383F 
=303730$ 
>4M6D7 
zznlker 
>7E787F 








>EEEDE 
+EEEDB 
HDEDX?BV?YS 
=DMDTDDS 
>DEDN* +BDF 
+DEDID6DE 
=2N2T2D$ 
>9E9N/+B9F 
=9M9TIDE 
+9E9ID6D+ 
H9E9XPBV?YQ 
=1N1TID$ 
>BEBDF 
=BEBDOF 
-BEBRBQCF 
>CECBCF 
=<)76P<DS 
=+M+T+DS 
=:Ms TsD$ 
>3E:BsF 
BGM; Us K>CsF 
>6E6B6F 
=6M6T6DS 
>BEBD+ 
HBEBDG 
+BEBD+ 
=CINCTCOS 
3HJD6DB 
3AJ16DB 
>=E=N; +B=F 
H=E=X7BU?YP 
+-E-JD6D+ 
>1E1B1F 
1-E-D, HUS?F 
>/E/Ne IB/F 
+/E/B/KeF 
=/0/7/08 
a/míT/0RIYU 
>5E585F 

>1E IK,BIF 
=IMITIDS 
EsMsIJPRUPEYG 
=>M>T>D$ 
>FEFBFF 
=FMFTFDS 
4FNFTFDK 

3; 2MLOM 
K,3BDN 

K. 33800 
49019K1F 
=7N7T7DS 
=5N5T5DS 
>=]57D8 
-7N7TIRTF 
=SMSTSRSF 





À 
b 


Terminado o trabalho, digite a Tabe- 
la de Mensagens e grave tudo em fita. As 
instruções de operação do programa são 
as mesmas do “Aventuras na Selva”. 


e 
O JOGO 





Serra Pelada é hoje, sem dúvida ne- 
nhuma, o garimpo mais famoso do 
Brasil e a nossa aventura tentará repro- 
duzir uma “busca ao tesouro” a partir 
de uma dada história. 

“João dente de ouro”, um famoso 
garimpeiro, certo dia encontrou, num 
dos barrancos de Serra Pelada, uma pe- 
“e pesando algo em torno de 70 qui- 

O garimpo todo foi agitado por uma 
febre de festejos e, às 3 horas da manhã 
do quarto dia, debaixo de um terrível 
temporal, “Joao dente de ouro” sumiu. 
Uns dizem que ele foi morto quando 


MICRO SISTEMAS, janeiro/84 


tentava sair de Serra Pelada por uma es- 
trada de terra, mas outros afirmam que 
ele morreu num desabamento provoca- 
do pelas chuvas. De certeza só há um 
fato: a grande pepita, que foi logo apeli- 
dada de “Dívida Externa”, devido ao 
seu tamanho, não saiu do garimpo e es- 
tá à espera de que alguém a ache. 


D———————————————————— 
DICAS 





e Quando você estiver à procura do ou- 
ro e quiser que o computador cave, use 
a ação GARIMPE nesse LOCAL. 

e Se você quiser perguntar algo ao mi- 
cro, lembre-se sempre de terminar a fra- 
se com uma interrogação. 

e Você poderá, a qualquer momento, 
ser assaltado e ficar sem ouro e sem di- 
nheiro. Não se desespere e continue ten- 
tando. 


e O micro não sabe quanto ouro ele 
carrega, mas você pode perguntar 
QUANTO DINHEIRO ele está carregan- 
do. 

e O limite de objetos carregados pelo 
micro pode variar em algumas circuns- 
tâncias; portanto, não se assuste se ora 
ele carregar 5 objetos ora 6 ou 7 ou 4. 

e Não se assuste com algumas respos- 
tas do computador; ele foi programado 
para ser um pouco genioso e nem sem- 
pre obedecer corretamente às ordens. 

e E lembre-se de que a resposta “ISTO 
NÃO É POSSIVEL” nem sempre quer 
dizer que a ação não pode ser executada. 





Renato Degiovani é formado em Comunica- 
ção Visual e Desenho Industrial pela Pontifi- 
cia Universidade Católica do Rio de Janeiro. 
Há mais de um ano utiliza microcomputado- 
res para cálculos na área em que atua. 
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AVENTURAS EM SERRA PELADA 


1010 PRINT "O RELOGIO ESTA QUEBR 

ADD." 

1815 RETURN 

1020 PRINT “E APENAS ";08(E,3 TO 
) "comum" 

1225 RETURN 

1830 PRINT "ELE ESTA COM UM PNEU 
FURADO." 

1835 RETURN 

1040 PRINT "NOS TEMOS ";T(4)*372 

45;" CRUZEIROS." 

1845 RETURN 

1050 PRINT "NENHUM TOSTADe" 

1255 RETURN 

1060 PRINT "COMO EU DEVO FAZER 1 

550 ?" 

1065 RETURN 

1870 PRINT "EU NAO SOU BORRACHEI 

RDe" 

1075 RETURN 

1080 PRINT “MAS EU JA FIZ 1550" 

1085 RETURN 

1090 PRINT "ELE NAO QUER PEGARe" 

1095 RETURN 

1100 PRINT "O DONO NAO VAI GOSTA 

R DISSO E ELE E MUITO FORTE." 

1105 RETURN 

1118 PRINT "QUE CAMINHAO 9" 

1115 RETURN 

1128 PRINT "AQUI NAO HA NINGUEM 

QUE COMPRE 1550" 

1125 RETURN 

1138 PRINT "DE QUEM 2” 

1135 RETURN 

114] PRINT "QUE BOM NEGOCIO FIZE 

mos HEIM 9" 

1145 RETURN 

1156 PRINT “OK, MAS A GRANA ACAB 

ou. 

1155 RETURN 

1168 PRINT "ELE ESTA COM O ALENA 

Den 

1165 RETURN 

1178 PRINT "ELA TEM UM METRO E mM 

El0e" 

1175 RETURN 

1180 PRINT "SEM UMA ESCADA NAO V 

AI SER POS-SIVELe" 

1185 RETURN 

1198 IF INT (RND415)=3 THEN GOTO 
1196 

1191 PRINT "ATE AGORA NAO ACHEI 
NADA." 

1195 RETURN 

1196 PRINT ">>> ACHEI. «e ACHEIII 
IIIIII",,, "AQUI ESTA ELA, A FAMO 
SA PEPITA "DIVIDA EXTERNA""eM, 

»"COMO ELA E GRANDE cer 

1197 LET T(3)=7(3)+1523 

1198 LET US$(31)="" 

1199 RETURN 

1200 IF INT (RND*5)<>3 THEN GOTO 
1191 

1201 PRINT "ACHEIII", ooo "NAO E U 
MA PEPITA GRANDE MAS DEVEVALER A 
LGUMA COISA." 

1202 LET T(3)=T(3)+INT (RND*5)+3 
1203 LET u$(31)="" 

1205 RETURN 

1218 PRINT "UM DESABAMENTO ESTA 
BLOQUEANDO A PASSAGEM NESSA DIRE 
CAM 

1215 RETURN 

1220 PRINT "OK, MAS O IMPOSTO SO 
BRE A VENDAFOI BEM ALTO." 

1221 LET US(31)="." 

1222 LET T Apa 

1223 LET T(3)=0 

1224 LET U$(9)="m" 

1225 RETURN 

1230 PRINT "QUE ATITUDE ESTUPIDA 
ESSA,NAO ?" 

1235 RETURN 

1240 PRINT "DE ONDE ?" 

1245 RETURN 

1250 PRINT “E UM FORD 1938." 
1255 RETURN 








1260 PRINT "SAD ";T(1)-INT (T(1) 
/24)*24;" HORAS DO DIA ";7+INT ( 

T(1)/24) 

1265 RETURN 

1270 PRINT "ACHEI O QUE VOCE QuE 
RIAe" 

1275 RETURN 

1280 PRINT "VOCE FICOU MALUCO 7" 
1285 RETURN 

1290 PRINT "ELES COLOCARAM GUARD 

AS PARA A PROTECAO DOS CAIXAS." 
1295 RETURN 

1300 PRINT "ESSA PODE SER UMA AC 

AO MUITO PERIGOSA DEVIDO AS CIRC 
UNSTANCIASe" 

1305 RETURN 

1318 PRINT "SAO PREGOS DE CABECA 
CHATA." 

1315 RETURN 

1320 PRINT "ELES SAO MUITO PESAD 
05er 

1325 RETURN 

1330 PRINT "PARECE QUE HA UMA LE 
1 CONTRA O PORTE DE ARMAS NO GAR 
IMPO." 

1335 RETURN 

1340 PRINT "ACENDER COM O QUE ?" 
1345 RETURN 

1358 PRINT "OS GARIMPEIROS FICAR 

AD FURIOSOS" 

1355 RETURN 

1368 PRINT "ELA JA ESTA ABERTAS" 

1365 RETURN 

1378 PRINT "SECRETARIA DE MINAS 

- 2579384 CAIXA ECONOMICA 

- 2861745" 

1375 RETURN 

1380 PRINT "AQUI NINGUEM SABE DE 
NADA." 

1385 RETURN 

1390 PRINT """SE O SR DESEJA TEL 

EFONAR PODE UTILIZAR A CABINE" 
" 


1395 RETURN 
1400 PRINT "NINGUEM ATENDE." 
1405 RETURN 

1410 PRINT "ESTA OCUPADO." 

1415 RETURN 

1420 PRINT "A PORTA ESTA FECHADA 
em 

1425 RETURN 

1430 PRINT "PO CARA, QUE SUFOCO, 
MAS ACHO QUE CONSEGUI PEGAR UM 
POUCO" 

1435 RETURN 

1440 PRINT "OK, MAS NAO DEU NEM 
TEMPO DE SOLTAR E ALGUEM CARRE 
Gou com TUDO." 

1445 RETURN 
S000 PRINT " 


era 


en 


er...» SERRA PELA 
DA ...... essere 
enesenman, ER HOJE E DIA 
7 E VOCE TÊM QUE” ACHAR A FAMOSA 
PEPITA ""DIVIDA EXTERNA"" PARA 
TORNAR-SE MILIONARIOOU CONTINUAR 
POBRE" ,o099" A TEMPORADA DE 
GARIMPO TERMI-NA AS 12 HORAS DO 

DIA 15, QUANDOENTAO TODOS OS GAR 
IMPEIROS SAO RETIRADOS DOS BARR 

ANCOS.",,999" BOA SORTE E QUE 
SEUS SONHOS SE REALIZEM cets,9p 
VECTRA e 

am 

SQB1 RAND 

5082 LET P=24 

5003 LET E=5 

5004 LET H$="NOS ESTAMOS " 

5009 RETURN 

5100 PRINT H3;"NO BARRANCO NEN; P 


O OM O 2. + UM NM 


51805 RETURN 

5200 PRINT H$;"NO FUNDO DO BARRA 

N-CO NE"; P-10;" 

5205 RETURN 

5210 PRINT HS; "EM FRENTE A UM BA 

R-RACO VELHO" 

5215 RETURN 

5220 PRINT H$; "DENTRO DA AGENCIA 
DA CAIXA ECONOMICA+" 

5225 RETURN 

5230 PRINT HS; "PERTO DE UM ARMAZ 

EMDE SECOS E MOLHADOS." 

5235 RETURN 

5240 PRINT "ESTA E A PRACA CENTR 

AL DE SERRAPELADA." 

5245 RETURN 

5258 PRINT "AQUI E O FAMOSO BECO 
DAS MARGA-RIDAS, ONDE OCORRERAM 

VARIAS MOR-TES E ASSALTOS." ,,s9" 
HA TAMBEM UMA PORTA A LESTE! 

5255 RETURN 

5260 PRINT H$; "EM FRENTE AO BAR 

DOALEMAD» 

5265 RETURN 

5270 PRINT “ESTA E A ESTRADA VEL 

HA DO GARIMPO. HA MUITO TEMPO QU 

E ELA NAO E UTILIZADA” 

5275 RETURN 

5288 PRINT "NESTE LOCAL HA UMA F 

ONTE ARTE- SIANA QUE ABASTECE O 

GARIMPO DE SERRA PELADA" 

5285 RETURN 

lado PRINT H$; "DENTRO DO CAMINHA 
en 

5295 RETURN 

5300 PRINT H$; "DENTRO DO ARMAZEM 

* AQUI ELES VENDEM DE TUDO: COMID 

A, ARMAS, FERRAMENTAS E BEBIDAS" 

5385 RETURN 

5310 PRINT H3;"NUM MATAGAL CHEIO 
DE ESPINHOS." 

5315 RETURN 

5320 PRINT HS; "NO AEROPORTO LOCA 

Doi” 

5325 RETURN 

5336 PRINT H$; "NUM CRUZAMENTO." 

5335 RETURN 

534] PRINT H$;"EM FRENTE DA AGE 

N=CIA DA CAIXA ECONOMICA" 

5345 RETURN 

5350 PRINT HS; "DENTRO DO BAR DO 
ALEMAD. POR AQUI TEM UNS TIPOS 
QUE PARECEM BANDIDOS." 

5355 RETURN 

5360 PRINT HS; "DENTRO DA CABINE- 


5365 RETURN 
5370 PRINT HS; "DENTRO DO BARRACO 
VELHO-HA UMA PORTA PERTO DA JA 

- NELA, AO SULe" 

5375 RETURN 

5380 PRINT "AQUI E O ACAMPAMENTO 
PRINCIPAL DOS GARIMPEIROS. ALGU 

NS AINDA ESTAO DORMINDO E MAIS A 
FRENTE FI-CA O AMBULATORIO." 

5385 RETURN 

5398 PRINT H$; "DENTRO DO POSTO T 

E-LEFONICO" 

5395 RETURN 

saga PRINT HS; "NA PISTA DE POUSO 


5485 RETURN 

5410 PRINT H$; "EM FRENTE DO POST 
O TELEFONICO DA CIDADE." 

5415 RETURN 

5420 PRINT "AQUI E O FERRO VELHO 
e EXISTE MUITA COISA INTERESSA 
NTE ESPALHADA NESSE LOCAL." 

5425 RETURN 

5438 PRINT "ESSA E A ESTRADA QUE 
LIGA A CI-DADE AO GARIMPO. HA U 

M CAMINHÃO PARADO NO ACOSTAMENTO 


5435 RETURN 
5448 PRINT HS; "NO AMBULATORIOo" 
5445 RETURN E 
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CAMPUSWARE 


O maior e melhor catálogo em livros de computação! 
Aqui, uma seleção especial para você. 


COMO LIDAR COM O 


COMPUTADOR 


EDITORA CAMPUS 


COMO LIDAR COM O COMPUTADOR 
Henry C. Lucas Jr. 

1983 — 160 pp. 

Informal bate-papo com o leitor, que responde 


las perguntas feitas pelo pessoal eso envolvido 
s, 


no processamento de informações. Os conselhos 


| e sugestões abordam situações retiradas de am- 


| as aplicações c 


ETC 


bientes comerciais do dia-a-dia, e cobrem 
os procedimentos básicos de operação, quanto 
ivas dos microcomputadores. 


EDITORA CAMPUS 


MICROCOMPUTADORES PARA 

APLICAÇÕES COMERCIAIS 

W. Barden Jr. 

1983 — 260 pp. 

Conheça um microcomputador e suas apli 

comi is antes de se decidir por sua escol 

aquisit 'omponentes dos sistemas comerci 

de pequeno porte, perigos a evitar, vocabulário 
ializado e até mesmo um pequeno curso 


ões 


“| de linguagem basic. 


TÍTULOS E PREÇOS 


1º COMOLIDAR COM O COMPUTADOR 
Cr$ 4.030,00 


2 e BASIC PARA MICROS PESSOAIS 
Cr$ 6.240,00 


3 e IMPLANTAÇÃO DE MICROS E 
MINICOMPUTADORES 
COMERCIAIS 
Cr$ 5.390,00 


4 e MICROCOMPUTADORES PARA 
APLICAÇÕES COMERCIAIS 
2r$ 7.440,00 

5 e FUNDAMENTOS DE 
PROCESSAMENTO DE DADOS 
Cr$ 6.210,00 


6 e GUIA DE LINGUAGENS DE 
COMPUTADORES 
Cr$ 4.210,00 


BASIC PARA MICROS PESSOAIS 

oro da Cunha Pereira Filho 

1983 — 232 pp. 

Importante apresentação da Lingu: Basic, 
de forma extremamente didát' Cada capítulo 
traz um guia de estudo dir e muitos exer- 
cícios, fornecendo ao leitor as informações para 
a perfeita utilização em microcomputadores 
pessoais, bem como os de teclado plano. 


WILSON T. PRICE 


Fundamentos de 
mento de 


“DADOS 


NDITORA CAMPUS 


FUNDAMENTOS DE 
PROCESSAMENTO DE DADOS 

Wilson T. Price 

1983 — 200 pp. 

Uma introdução concentrada e condensada ao 
processamento de dados que procura reduzir a 
quantidade de informações a respeito, preser- 
vando nas os conceitos mais importantes e 
os itens básicos mais significativos. 





IMPLANTAÇÃO DE MICROS E 
MINICOMPUTADORES COMERCIAIS 
P. A. Knight 
1983 — O pp. 

Um guia seguro para os responsáveis pela insta- 
lação de sistemas de computação, este livro ser- 
virá de ajuda nos aspectos mais difíceis, e fun- 
cionará como uma Lista de Verificação para 
que nada seja esquecido. 


Guia de Linguagem de 
COMPUTADORE 


EDITORA CAMPUS 


GUIA DE LINGUAGENS 
DE COMPUTADORES 


Harry L. Helms Jr. 

1983 — 122 pp. 

Se você precisa ou quer saber as diferenças en- 
tre COBOL, FORTRAN e outras linguagens, es- 
te livro é para você. Cada capítulo apresenta 
uma conhecida linguagem de programação; o úl- 
timo contém um dicionário de palavras-chave. 


CAMPUSWARE 


FAÇA AQUI SEU PEDIDO 


Assinale abaixo o(s) número(s) correspondente(s) à(s) publicação (des) que deseja receber: 


Assinale a sua opção de compra: 
[ ] cheque nominal à ATI-Editora Ltda. Nº 


Atenção: Neste caso, faça o cheque com 10% de desconto sobre os preços mencionados e 


deixe o porte por nossa conta. 
[] Reembolso Postal 
Envie o seu cupom ainda hoje para: 
ATI-Editora Ltda. 


Rua Visconde Silva, 25 
22281 Botafogo — Rio de Janeiro — RJ 


Atenção: Preços válidos por tempo limitado 











Neste jogo para os micros da linha TRS-80 modelo |||, evite bater nas 
barreiras e, ao mesmo tempo, faça com que seu adversário não supere as “barras” 











Ciclotron: 
supere esta barra! 


iclotron é um jogo de reflexos 
do e estratégia. Dois jogadores 

estabelecem uma verdadeira 
perseguição um ao outro, onde, ao 
mesmo tempo que tentam evitar uma 
colisão com as barreiras que cercam o 
campo de ação do jogo, vão 
construindo suas próprias barras para 
encurralar o adversário. O campo é 
fechado, não tem por onde escapar e 
somente um sairá vitorioso, pois não 
existe empate. 


CR ITTT 
GLS VIANA A GEE 
[Anis e 


PEA MS SEO (E é 


PELIEEETSE 5. 
Soa SM 
LL ha 








Hendy Takeshi Yabiku 





Cada um controlará um ponto na tela, 
que corre a uma velocidade constante, 
sendo impossível ficar parado. Os 
contadores que aparecem são: 

Ciclo, Jog. 1 e Jog. 2. Ciclo é a 
unidade de tempo do jogo e, cada vez 
que um adversário bater na barreira, os 
pontos acumulados em Ciclo passarão 
automaticamente para o outro 
jogador. Jog. 1 e Jog. 2 são, 
respectivamente, os pontos dos 
jogadores um e dois. 





O Jog. 1 usa, para controlar seu ponto, 
as teclas: “Q” para virar à esquerda e 
“W” para virar à direita; o Jog. 2 usa 

” para virar à esquerda e “ 
para virar à direita. 





Hendy Takeshi Yabiku tem 15 anos e desen- 
volve jogos nos micros compatíveis com o 
TAS-80 Modelos | e Ill e nos da linha Sinclair. 
É um autodidata e aprendeu BASIC apenas 
através de revistas e livros. 





EUR 
ANNAN 
ANAAANAS ss SS 


AASAAN SS SE 


À NIDA 
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MP (== + da dO 


2 REM "O JOGO DAS BARREIRAS” 

3 REM HENDY T. YABIKU 

10 CLS: DEFINT A-Z: P=1500 

20 INPUT"QUER VER AS REGRAS(S/N) 
";c$ 

30 IP C$="S” THEN GOTO 1000 

40 IF C$<>"N" THEN PRINT"NAO ENT 

ENDI, TENTE DE NOVO": GOTO 20 

45 PRINT” APERTE QUALQUER TECLA 

PARA COMECAR” 

50 IF INKEY$="" THEN 50 

55 Jl=0: J2=0 

60 CLS: A=55: B=44: C=1: D=58: E 
=44: F=1: G=0 

70 PRINTGO,"Jog.1:";J1: PRINTE2ZS 
"Cíclo:";G: PRINTES2, "Jog.2:";] 

2: 

80 FOR I=0 TO 127: SET(I,3): SET 
(127-1,47): NEXT 

90 FOR I=3 TO 47: SET(0,50-I): S 

ET(127,1): NEXT 

100 K=PEEK (14500) :G=G+1 

110 IF K=2 THEN C=C-1 ELSE IF K= 
128 THEN C=C+1 ELSE IF K=16 THEN 
F=P-1 ELSE IF K=64 THEN F=F+ 
120 IF C=0 THEN C=4 ELSE IF C=5 

THEN C=1 

130 IF F=0 THEN F=4 ELSE IF F=5 

THEN F=1 

140 IF C=1 THEN B=B-1 ELSE IF C= 

2 THEN A=A+l ELSE IF C=3 THEN B= 


B+1 ELSE A=A-1 

150 IFP F=1 THEN E=E-1 ELSE IF F= 
2 THEN D=D+] ELSE IF F=3 THEN E= 
E+1 ELSE D=D-1 

160 IFP POINT(A,B) THEN 200 ELSE 
SET(A,B): IF PÓINT(D,E) THEN 300 
ELSE SET(D,E) 

170 PRINTÉB1,G;: GOTO 100 
200 J2=)2+G: PRINTE658,J2;: 
>=P THEN 400 

210 PRINTÉM60,” JOGADOR 2 GANHOU 
ESSA";: FOR I=0 TO 1000: NEXT: 
Goro 60 

300 J1=)1+G: 
=P THEN 450 
310 PRINTG460," JOGADOR 1 GANHOU 
ESSA";: FOR I=0 TO 1000: NEXT: 
coro 60 

400 PRINTE460, "JOGADOR 2 VENCEU" 
;: FOR I=0 TO 2500: NEXT: CLS; G 
oTo 20 

450 PRINTE460, "JOGADOR 1 VENCEU" 
;: FOR I=0 TO 2500: NEXT: CLS: G 
oTo 20 

1000 CLS: PRINT"Neste jogo, voce 
e seu adversario se" 

1010 PRINT"defrontam num campo s 
em saida,em que o * 
1020 PRINT"objetivo e* 
que o adversario bata” 
1030 PRINT"em uma das barreiras, 
que podem ser as que” 


IF J2 


PRINTGS,J1;: IF Jl> 


fazer com 


1040 PRINT"voces estao trancando 
ou nas laterais do campo. * 

1050 PRINT: PRINT"Para controlar 
use as seguintes teclas. 

1060 PRINT: PRINT, “ESQUERDA”, “DI 
REITA" 

1070 PRINT"JOGADOR 1","'Q'","'W* 


1080 PRINT"JOGADOR 2","'<'","'>" 


1090 PRINT: PRINT 

1100 PRINT" APERTE QUALQUER TECL 
a” 

1110 IF INKEY$="" THEN 1110 

1120 CLS: PRINT: PRINT 

1130 PRINT"cada vez que seu adve 
rsario bater,os pontos” 

1140 PRINT" acumulados | em 'CICLOS 
* passarao para voce." 

1150 PRINT"O primeiro a alcancar 
";P;” pontos sera o vencedor." 
1160 PRINT"Este limite de pontos 

e ser mudado,"; 

1170 INPUT"voce quer (S/N) ";C$: 1 
F C$="S" THEN 2000 ELSE GOTO 45 
1180 IF C$<>"N” THEN PRINT"NAO E 
NTENDI, TENTE DE NOVO": GOTO 1170 
2000 INPUT"Para quanto ( 500<PON 
TOS<10.000 )";P 

2010 IF P<500 OR P>10000 THEN 20 


se SE Ss E Es Es cor oa mas 
Software para Microcomputadores? 
Só há uma solução inteligente! 


Uso Caseiro 
Cc gp: 
Gráficos 


, mais de 4000 originais 


que você pode retirar Para os principais 

e levar para micros do mercado 
sua casa ou TK82, TKS3, TK8S, Microengenho, 

empresa para TIMEX/SINCLAIR Apple e Similares, 

usá-lo à vontade. CP200, CP300, CP500, Sistema 700 e Superbrain. 


Você pode consultar pessoalmente os catálogos de Software ou solicitar informações pelo pelo Correio. 
Av. Brigadeiro Faria Lima, 1390 -8º Andar - Cj. 82 - CEP 01452 - Teis.: (011) 814-0582, 813-6407 e 210-1251 - São Paulo - SP 





TRS80 Mod. III, 
UNITRON, MAXXI, 


Eu, 


apoio TNFORMAxX 
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Winchesters, 


aqui e lá fora 


Pouco a pouco con- 
solida-se no Brasil o 
mercado de discos 
magneticos rigidos com 
tecnclogia winchester 
e os modelos menores, 
de 5 1/4", já estão sen- 
do conectados a micros 
pessoais do porte do 
CP-500, o que irá em 
breve aumentar a capa- 
cidade de armazena- 
mento externo desses 
equipamentos para até 
20 Mbytes. 

Mas como estão es- 
ses periféricos em ter- 
mos de tecnologia, em 
comparação com o 
mercado internacional? Nos- 
so colaborador Ulrick Kuhn, 
engenheiro especializado no 
assunto, visitou a Ill Feira de 
Informática, comparou os mo- 
delos expostos e faz aqui uma 
apreciação do atual estágio 
tecnológico brasileiro nesse 
campo, em vista do que acon- 
tece nos centros mais avan- 
çados, e se arrisca a fazer 
algumas previsões para o fu- 
turo 

A tecnologia nacional de 
discos segue as tendências 
mundiais, porém em ritmo 
mais lento. Analisando essas 
tendências, podemos ter uma 
idéia de nossos futuros pro- 
dutos. O que não podemos 
estimar com precisão é a data 
de sua disponibilidade 





O winchester de 5 1/4" cau- 
sou uma verdadeira explosão 
no mercado americano, sen- 
do que as previsões estima- 
das de vendas para 1984 são 
de 2 milhões de unidades pa- 
ra os winchesters de 5 1/4 
600 mil unidades para os de 
8” e 100 mil unidades para os 
drives de 14”. Essa explosão 
demográfica dos winchesters 
foi responsável pela padroni- 
zação e aceitação da inter- 
face ST 400/500,e o W 5 1/4 
de hoje apresenta o seguinte 
perfil: uma unidade com step- 
per motor, com capacidade 
de 5 a 15 MB e interface ST 
400/500. Recentes anúncios e 
lançamentos de unidades nes- 
se segmento — com capaci- 
dades de até 80 ou 150 MB 













































e com maior performance 
utilizando voice coil e servo 
— também prevêem como in- 
terface standard o ST 400/500 
(existem outras opcionais) 
mesmo com a restrição de 
menor rendimento de capaci- 
dade (densidade linear) e 
transmissão por causa da 
taxa de 5 MHz 

As tecnologias de voice 
coil, cabeças magnéticas thin 
film e Whitney, médias (dis- 
cos) thin film plated, novos 


códigos de encodifiçação co-. 


mo o 2,7 RLL, atuadores voi- 
ce coil e gravação vertical 
são as responsáveis pelo 
W'5 1/4" com 150 MB. A Max- 
tor (EUA), por exemplo, de- 
senvolveu um motor DC de 
acionamento dentro do eixo 
de discos que permite a mon- 
tagem de um maior número 
de pratos na mesma unidade 
Quando for possivel incorpo- 
rar todas essas tecnologias 
num unico produto — o que 
ocorrerá por volta de 1985 — 
a capacidade de armazena- 
mento deverá chegar aos 
500 MB 

A interface ST 400/500, em- 


bora hoje predominante no 
mercado, devera ceder lugar 
a novos tipos, em drives de 
melhor desempenho, com 
maiores taxas de transmissão 
e sem perda de confiabilida- 
de. Uma dessas interfaces se- 
ra provavelmente a ESDI (10 
MHz). similar à ST 400/500. 
porem com a transmissão de 
dados em NRZ. Poderão ain- 
da surgir drives com interface 
SCSI (15 MHz) paralela de 8 
bits. 

Os drives de 8 e 14 deve- 
rão no futuro chegar a 1 GB 
ou mais e equiparão basica- 
mente supermínis e sistemas 
médios e grandes. O mercado 
desses produtos, devido ao 
segmento que atendem, será 
sem dúvida, menos expressi- 
vo queo W 5 1/4". Tais equi- 
pamentos manterão por al- 
gum tempo o padrão SMD 
com maior taxa de transferên- 
cia. Interfaces inteligentes, 
como o IPI ou o ISI, porém: 
deverão equipar os produtos 
de alto desempenho, que po- 
dem ter até mais de um atua- 
dor (voice coil) para diminuir 
os tempos de acesso 





Indústria de computadores 


.. 4 no 
já é líder 
Desenvolvimento de tecno- 
logia que acompanhe o setor 
de produção, popularização 
do uso do computador, maior 
incentivo a área de software, 
integração de tecnologia de 
comunicação com a de com- 
putação, avanço dos compu- 
tadores de quinta geração e 
apoio governamental ao setor 
levou a indústria de compu- 
tação no Japão a arrecadar 
em 1982 cerca de 5 bilhões e 
700 milhões de dólares, tor- 
nando-a responsável pela 
maior parte do Produto Inter- 
no Bruto do país. 
Este panorama da indústria 
de informática japonesa foi 


no Japão 


transmitido por Katamitsu Ko- 
no, gerente geral do CICC — 
Center of the International 
Cooperation for Computeriza- 
tion, no | Ciclo de Conferên- 
cias do Conselho Permanente 
de Informática da Associação 
Comercial do Rio de Janeiro 
sobre o tema “Aspectos Atuais 
de Informática no Japão”. O 
evento se realizou no audito- 
rio da Associação, no último 
dia 9 de dezembro e contou 
com o apoio da Digibrás e do 
JECC — Japan Electronic 
Computer Company 


Katamitsu Kono declarou 
que a previsão para 1990 é 


que a indústria de compu- 
tadores japoneses alcance a 
cifra de 18 bilhões e 900 mi- 
lhões de dólares. o que colo- 
ca esse setor na vanguarda 
da indústria japonesa no ano 
2000. “Nesse contexto, a área 
de software receberá total 
prioridade já que o hardware 
alcançou um patamar bastan- 
te elevado no Japão. Uma no- 
va geração de computadores 
surgirá na medida que sua 
utilização seja diversificada 
Hoje no Japão cerca de 
duas mil empresas se dedi- 
cam à produção de software, 
incluindo as autônomas e as 
ligadas aos fabricantes. Ocor- 
re um aumento acentuado no 
número de software-houses e 
70% dessas empresas são pe- 


quenas e médias. Os incenti- 
vos governamentais nessa 
area e o apoio de órgãos co- 
mo o CICC e o JECC são im- 
prescindíveis, assinalou Kata- 
mitsu. Paralelamente, também 
existe um incentivo por parte 
desses órgãos para o desen- 
volvimento de software pelo 
usuário como forma de fami- 
liarização com o equipamento. 

Em relação aos micros pes- 
soais, Katamitsu declarou que 
atualmente no Japão só exis- 
tem micros “de 16 bits. Com 
maior capacidade, esses com- 
putadores passaram de sim- 
ples instrumentos de lazer pa- 
ra . máquinas também de 
utilização comercial, deixan- 
do de ser rotulados de pes- 
soais 
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O homem 


As características do com- 
putador são diametralmente 
opostas às do ser humano 
Por isso, ambos se comple- 
mentam. E quando a máqui- 
na invade campos de domi- 
nio do homem, isso ocorre 
porque a tecnologia sempre 
foi desenvolvida sem que se 
fizesse antes um estudo cien- 
tífico sobre o seu emprego 

Assim pensa o professor 
francês Jean Warnier, uma 
das maiores autoridades mun- 


Interface para 
Olivetti ET121 


A Daisy Wheel Eletrônica 
estã lançando a interface DW 
121 que, acoplada à máquina 
de escrever Olivetti ET 121 
possibilita a sua utilização 
como impressora, sem contu- 
do interferir na sua utilização 
normal. A interface pode ser 
ligada a qualquer micro com 
saida serial RS232-C ou para- 
lela Centronics. A DW 121 é 
controlada por um micropro- 
cessador 8085, tem buffer in- 
terno de 2 Kbytes e possibilita 
uma série de recursos, tais 
como negrito e sublinhamen- 
to automáticos. O endereço 
da Daisy Wheel é: Rua Anto- 
mio Comparato, 200, São Pau- 
lo — SP, CEP 04605, tel.: (011) 
532-0154 





e a técnica 


diais em Informática e cria- 
dor da metodologia de pro- 
gramação estruturada, que 
recentemente veio ao Brasil 
para ministrar cursos sobre o 
assunto. 

A ilusão, bastante difundi- 
da, de que o computador é 
capaz de tudo, disse Warnier, 
provém do fato de que, por 
exemplo, o homem pode in- 
ventar uma fórmula de cal- 
culo que por vezes nem ele 
próprio consegue executar 


“Mas a máquina que executa 
essa fórmula, na verdade só 
desenvolve um algoritmo 
(N.R.: um conjunto definido 
de operações a ser executa- 
das para levar a algum re- 
sultado desejado); ela não 
pensa 

Outro fator que alimenta as 
ilusões a respeito da máqui- 
na, ressaltou Warnier, é que 


na Informática usam-se mui- 
tos antropomorfismos, isto é, 
atribuem-se qualidades hu- 


manas à máquina. “Um com- 
putador nunca teve memória, 
nunca soube ler ou escrever. 


Ele não é inteligente ou bur- 
ro, simplesmente ou está fun- 
cionando ou está quebrado”. 

Sobre a invasão pelo com- 
putador de áreas de atividade 
reservada ao homem, Warnier 
lamentou que exista “uma 
distância cada vez maior en- 
tre o desenvolvimento da téc- 
nica e a formação das pes- 
soas que vão utilizar essas 
novas técnicas”. E advertiu: 
“Não é ensinando BASIC que 
vamos fazer as pessoas ra- 
ciocinarem. Elas precisam 
antes aprender a raciocinar 
para depois obter a capaci- 
tação técnica 


Gravador de memórias EPROM 


A Micromac Industria de 
Equipamentos Eletrônicos 


Ltda. está fabricando os gra- 
vadores de memórias EPROM 
GEP-30 e os apagadores de 
EPROMs EEP-30. O GEP-30 
compõe-se de uma unidade 


de hardware com fonte de 
alimentação propria e mais o 
software — em Assembler 
Z80 — fornecido em cassete 
ou disquete. Já o apagador 
de memória EEP-30 permite 
o apagamento de lotes de 30 


Piaget e os micros 


Partindo do princípio de 
permitir às crianças utilizar o 
microcomputador como um 
piano, um crayon, um papel 
ou pincel, e para que este as 
auxilie no desenvolvimento 
do raciocínio lógico através 
da expansão da sua criativi- 
dade, foi criada em São Paulo 


a 4C. Segundo o seu diretor. 
Luis Paulo Soares, para a cri- 
ação da 4C" foi feito um 
estudo das etapas do desen- 
volvimento infantil de acordo 
com Piaget, o que resultou 
em um curso para as crianças 
que estão no estágio de ope- 
rações formais, ou seja, alu- 


STRINGS 


EPROMSs 2780, 2716 e 2732, 
entre outras. O GEP-30 custa | 
Cr$ 485 mil, e o EEP-30, CrS 
395 mil. A Micromac fica na 
Rua Texas, 1342, São Paulo 
— SP, CEP 04557, tels.: (011) 
61-3467 e 531-8760. 





nos de 5º a 8º série 

Da 4C também participa a 
empresa People, de Campi- 
nas, que já possui cinco anos 
de experiência no ensino de 
computação, e a loja Compu- 
tique. Os cursos da 4C tém 
duração de 16 horas/aula, 
com turmas matutinas e ves- 
pertinas. Maiores informações 
na Av. Rouxinol, 201, São 
Paulo — SP, CEP 04516, tel. 
(011) 61-4595. 


* A Apple-tronic lançou o monitor de vídeo Apolo, de 12º em 
fósforo verde de alta resolução (20 MHz). Adaptável a qualquer 
micro, o monitor custa 42 ORTNs e pode ser comprado direta- 
mente do fabricante (que também fornece em OEM) ou através 
de lojas especializadas. * Ao comemorar o quinto aniversário, a 
Compucenter anunciou a sua transformação em systems house 
e lançou o PC — Padrão Compucenter, que consiste num pacote 
englobando um micro de 16 bits — o Nexus 1600, da Scopus 
—. software e treinamento. * Os usuários do TK 83 e compatíveis 
já poderão encontrar nas lojas a nova série de jogos animados 
de 2K, desenvolvidos pela Multisoft Informática Ltda. São 16 
programas agrupados em fitas com dois ou três e que incluem, 
entre outros, Invasores, Grand Prix, Limpeza Cósmica, Laser, 
Desafio Espacial, Confronto, Minotauro, Bombardeio, Guilhotina 
e Smag-Smag. * Edson Fregni, presidente da Abicomp e da 
Scopus Tecnologia, foi escolhido Engenheiro do Ano de 1983 
pelo Instituto de Engenharia de São Paulo. O título, segundo o 
Instituto, “visa a premiar a luta desenvolvida por Edson Fregni 
na defesa da engenharia e na política de implantação de reserva 
de mercado tecnológico na Informática”. * A base de dados 
Sonar/Inspec, distribuida pelo Centro de Informações Nucleares 
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— CIN, da Comissão Nacional de Energia Nuclear, foi acrescida 
de uma nova área de interesse, Tecnologia da Informação, e cujos 
relatórios, em inglês, incluem os seguintes tópicos: General & 
Management Aspects; Applications; Media-TV, Radio, Press; Ge- 
neral Systems; Office Communications; Office Computing. * A 
Companhia Siderúrgica Paulista — Cosipa comemorou os seus 
30 anos de existência ccm a inauguração de um sistema pioneiro 
no Pais de controle computadorizado do processo de aqueci- 
mento do laminador de tiras a quente. O projeto, que utiliza 
computadores nacionais e inclui o desenvolvimento dos modelos 
matemáticos e dos programas de supervisão e controle, permitiu 
alcançar o dominio tecnológico tanto do equipamento como do 
processo industrial. * A 11º FUSE — Feira Internacional de Uten- 
sílios e Serviços de Escritório, a realizar-se de 18 a 22 de fevereiro 
de 1984, no Parque Anhembi, São Paulo, contará com a parti- 
cipação de novos setores de atividades, entre eles, Processa- 
mento de Dados e Teleprocessamento. O evento, promovido 
pela Alcântara Machado Feiras e Promoções Ltda., será também 
realizado entre 4 e 10 de junho, no Centro de Convenções de 
Pernambuco, com o nome de 1º FUSENE. 
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A Potencial Software de- 
senvolveu e esta comercial- 
zando uma série de aplicatr- 
vos comerciais para micros 
da linha Apple, além de um 
curso de BASIC, o Passo a 


Passo, ministrado na própria 
maquina, com 20 horas de 
instrução e incluindo efeitos 
sonoros, cores e animação 
grafica. 

Os programas. comercialr- 


zados com garantia do fabri- 
cante, são os seguintes: Fo- 
lha de Pagamento (para até 
200 funcionarios, com 37 itens 
por cadastro, alteração de 
fichas individuais e emissão 
de diversos relatórios), Mala 
Direta (arquiva até 250 cadas- 
tros de 13 itens por disquete, 
permite busca através de pa- 
rametros preestabelecidos e 
impressao de parte ou de to- 
das as fichas), e Controle de 
Estoque (para ate 11 mil itens, 





tica brasileira. Bom não 
apenas no faturamento (que, 
diga-se de passagem, foi in- 
vejável), mas também pelos 
importantes passos dados no 
sentido da consolidação da 
iniciativa nacional no setor. A 
esse respeito concordam diri- 
gentes nacionais e regionais 
das principais entidades de 
classe da área ouvidos por 
MICRO SISTEMAS e que es- 
peram este ano colher diver- 
sas sementes plantadas du- 
rante o ano que acaba de 
findar. 

Edson Fregni, presidente 
da Associação Brasileira de 
Computadores e Periféricos 
— Abicomp, por exemplo, 
acha que “o ano de 83 mar- 
cou o início do amadureci- 
mento da indústria nacional”. 
A constatação desse amadu- 
recimento, prosseguiu, pode 
ser vista no Informática 83, 
tanto que a Abicomp abriu a 
discussão sobre pirataria, 
num reconhecimento de que 
nosso compromisso é com a 
tecnologia e não com o fatu- 
ramento da indústria”. Para 
ele, um ponto de destaque 
sobre esse aspecto em 1983 
foi o Ato Normativo 27, da 
SEI, impondo barreiras contra 
a pirataria. 

O presidente da Abicomp 
ressaltou ainda que a indús- 
tria nacional de computado- 
res viveu em 1983 algumas 
dificuldades muito sérias de- 
correntes da situação econô- 
mico-financeira do País, tal 
como a crise da importação 
de componentes. Mas, acres- 
centou, 1983 foi, acima de tu- 


pesar da crise, o ano 
N foi bom para a Informá- 





vê 1984 


do, o ano de abertura do de- 
bate sobre a questão da poli- 
tica de Informática em outros 
setores da sociedade, a co- 
meçar pelos partidos politi- 
cos, debate esse que, na opi- 
nião de Fregni, deverá pros- 
seguir em 1984, já com signi- 
ficativa parcela da sociedade 
apoiando a reserva de merca- 
do. Ele ressaltou também a 
pressão exercida pelos norte- 
americanos no ano passado 
em cima da política de Infor- 
mática: “Tivemos que nos or- 
ganizar e aprender a agir dian- 
te desse fato”. 

ara Wiadyr Furegatti, 

ex-presidente da Suce- 

su-SP, houve em 1983 
uma sensível melhora no rela- 
cionamento usuário-fabrican- 
te, decorrente de aperfeiçoa- 
mentos no hardware, no soft- 
ware e na manutenção. “O 
usuário viu com satisfação o 
surgimento de outros forne- 
cedores de hardware, o que 
sem dúvida traz uma garantia 
de fixação da política nacio- 
nal de Informática e de evolu- 
ção tecnológica”, disse Fure- 
gatti, para quem as relações 
entre fornecedores e usuários 
tendem a se aprimorar em 
1984, com melhor tecnologia 
e menores custos. 

Já a nova diretoria, que to- 
mou posse em fins de dezem- 
bro, planeja aumentar a parti- 
cipação dos associados, a co- 
meçar por uma consulta atra- 
vés da qual eles estabelece- 
rão as prioridades a serem 
seguidas pela entidade. Con- 
forme explica Octávio Genna- 
ri Netto, novo vice-presidente, 
está prevista para este ano 
uma exposição permanente 


com sete informações cada, e 
busca por diversos campos 
escolhidos pelo usuario). 


Todos os programas exigem 
equipamento com 48 K RAM, 
microprocessador 6502. um 
drive de disquetes de 5 1/4 
e sistema operacional SOD 
3.3. O endereço da Potencial 
Software e: Av. Dr. Campos 
Salles, 715. cj. 902 /3, Cam- 
pinas — SP, CEP 13100, tei.: 
(0192) 31-5340. 





com otimismo 





de microcomputadores na se- 
de da Associação, com apoio 
para o usuário. Também está 
nos planos da nova diretoria 
da Sucesu-SP uma integração 
maior com a sua congênere 
carioca: “Vamos ajudá-los na 
organização do Informática 
84 e eles nos ajudarão no 
Informática 85", adiantou 
Gennari. 

regulamentação da pro- 

fissão foi o principal 

assunto que mobilizou 
os esforços da Associação de 
Profissionais de Processa- 
mento de Dados de todo o 
Brasil. Foi também o tema 
central do 1º Congresso Esta- 
dual de Profissionais realiza- 
do pela APPD-SP, que elabo- 
rou um anteprojeto de Código 
de Etica, atualmente sendo 
examinado pelas APPDs dos 
outros Estados. A regulamen- 
tação da profissão é também 
um dos pontos-chave do pro- 
grama de atividades a ser de- 
senvolvido pela nova diretoria 
da regional paulista, junta- 
mente com a luta pela criação 
de um sindicato e a defesa da 
tecnologia nacional. Segundo 
Francisco de Assis da Costa 
Beraico, novo presidente aa 
APPD-SP, a partir deste mês 
tambem já deverá estar fun- 
cionando na entidade o Micro 
Centro, onde serão promovi- 
dos cursos e palestras para 
reciclagem dos profissionais 
no tocante aos microcompu- 
tadores. 

A Associação Nacional dos 
Dirigentes Executivos de In- 
formática —, ANDEI, que tam- 
bém teve eleições recente- 
mente, pretende este ano dis- 
seminar a sua existência. 


Uma das formas será a cria- 
ção de um departamento de 
recursos humanos para auxi- 
liar as empresas na seleção 
de profissionais adequados 
às suas necessidades. A AN- 
DEI pretende também realizar 
uma pesquisa de salarios a 
nível nacional, numa tentativa 
de disciplinar o mercado 
Além disso, a entidade esta 
criando um setor de benefi- 
cios a nível técnico, com cur- 
sos e seminários, além de 
convênio médico, entre ou- 
tras coisas. 

ara José Maria Sobri- 

nho, presidente da As- 

sespro — Nacional, os 
Projetos de Identificação da 
Propriedade do Software e de 
um Novo Código de Ética, 
além dos Programas de Co- 
mercialização firmados com a 
Control Data e a IBM foram as 
mais significativas vitórias al- 
cançadas pela Associação em 
83. Um ano que, apesar da 
difícil situação econômica do 
país, foi bom para as empre- 
sas de serviços de Informá- 
tica, que registraram indices 
de crescimento acima da taxa 
de inflação. 

“Informatica é o instrumen- 
to indispensável ao país para 
atravessar a crise que ai esta! 
com a otimização e a conse- 
quente redução dos custos 
abrem-se perspectivas para 
novas contratações”. Sobri- 
nho acredita que as empresas 
que conseguiram fechar o 
ano de 83 com lucratividade 
estão aptas a enfrentar 84, 
“pois eu prevejo para este 
novo ano a retomada do de- 
senvolvimento econômico do 


país”, disse ele. [1] 
se 
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Esta é uma versão reduzida (para 657 bytes) 
da listagem"Programe em segredo'publicada em MICRO SISTEMAS 
nº 25, edição de outubro /83, para ser rodada em 
equipamentos da linha Apple. Se você tem algum programa 
já publicado em MS convertido para outro equipamento, divida 
sua experiência com os demais leitores, enviando-o para 
MICRO SISTEMAS Seção Conversão, Rua Visconde Silva, 25, 
Botafogo, Rio de Janeiro, RJ, CEP 22281. 

















Programe em segredo 
no Apple 





Pierre R. Weber — São Paulo — SP 





10 REM PROGRAMA CRIPTOGRAFIA “SE 170 IF K=0 THEN READ B$,E$: GOTC 
GREDO" 190 
20 REM MICRO SISTEMAS 25,PAG 60 180 READ E$,B$ 
30 RESTORE 190 IF C$=B$ THEN PRINT E$;: GOT 
PRINT: PRINT: PRINT: PRINT o 210 
PRINT "ESCOLHA : 1 CODIFICAR!' 200 NEXT A 
PRINT " 2 DECODIFICA 210 RESTORE 
220 NEXT X 
PRINT " 3 TERMINAR” 230 GOTO 30 
INPUT R 240 K=1 
ON R GOTO 100,240,260 250 GOTO 110 
K=0 260 END 
INPUT"INTRODUZA A FRASE ";AÍ 270 DATA A,K,B,M,C,L,D,N,E,Z,F,I 
RESTORE +1G,M 
G=LEN (A$) 280 DATA 
FOR X=1 TO G ,C,N,F,O, 
» C$=MID$ (A$,X,1) 290 DATA 
FOR A=1 TO 28 a 





x ei dog POR QUE NÃO TUDO EM 
Z 


) ? 
MICROMAQ UM SO LUGAR: 


R. Sete de Setembro, 92 - Lj. 106 [NM : a Sotware, Publicações 
Tel.: 2226088 - Rio de Janeiro [DJS Las El LZA: PET OUT TUSD E UTITS To TONE CAD OE LU) 
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Começou a temporada de pesca nos micros da família Sinclair! Prepare 
a isca, o caniço e o samburá, e não deixe escapar nenhum 








Pescaria 
em águas eletrônicas 





Nelson Hisashi Tamura 


omingo, feriado, meio de semana. Todo dia é dia de 

pescaria neste jogo para os micros compatíveis com a 

lógica Sinclair. A configuração mínima necessária é 16 
Kb de RAM e o programa opera em SLOW para animação das 
figuras. 

O jogo é totalmente auto-explicativo, mas, antes de come- 
çar a pescar, preste atenção nesta dica: para tirar o peixe da 
água, você deve pressionar a tecla S assim que a vara do pescá- 
dor tremer, indicando que o peixe mordeu a isca. Aliás, está 
aí uma ótima chance para você testar como andam seus re- 
flexos... 


O micro lhe dá dez iscas e, com cada uma, você poderá er- 
rar até três vezes. Se não conseguir apanhar o peixe, perde a 
isca. 

Cada peixe fisgado conta dez pontos. Vamos ver se você é 
realmente bom de pescaria ou se só sabe mesmo é contar boas 
histórias de pescador. 





Nelson Hisashi Tamura é estudante do Curso Técnico de Eletrônica na 
E. P.S. G. Liceu Brás Cubas. Atualmente trabalha numa oficina de en- 
rolamentos de motores elétricos, onde utiliza um CP-200 para arquivo 
de dados e controle geral de oficina. 





E om 


Pescaria dem 


REM <NELSON H. TAMURA> 
SLOW 

GOSUB 4000 

CLS 

PRINT "N.H.T." 

PRINT AT 3, 


IM 
100 PRINT 


110 PRINT 


120 PRINT 
a 

50 PRINT AT 7,8; "MELIIIITIAR" ; 130 PRINT AT 20 
AT 8,8; "TT Ta"; ; CM 
COMER" ;AT 10,7; 

";AT 12,13 


AT 12,7; "emimmh)" ; 
173" E 
70 PRINT AT 14,0; "GEENCECCOCA 
mm 
80 PRINT AT 15,0; "ERNEEEERENEO 
LR 


140 LET H=0 


160 FOR K=21 TO 


180 NEXT K 


24 


90 PRINT AT 16, 
ar 17, 
ar 18, 
AT 19, 
+ 0; "CECELCEIIIEO 


150 POKE 16418,0 
170 PRINT AT K,O ; "NOS 
Pepe 


190 PRINT AT 11, 
12,0;"Meccecm";AT 13,0; "MERRES" 





200 GOSUB 400 

210 GOSUB 500 

220 GoTO 600 

400 PRINT AT 2,26; "Gahl';AT 3,28 
PUI"GAT 4,28;":";AT 3,24; "GR ;A 
T 4,22; "0BEN;AT 5,20; "GE" ;aT 6, 
18;"GB";AT 7,17; "GR" 

410 RETURN 

500 FOR C=5 TO 20 

510 PRINT AT C,28;"J" 

520 PRINT AT C,28;":" 

530 NEXT C 

540 PRINT AT 20,27;"(M";AT 20,29 
;AT VAL "19",27;"G";AT VAL * 
129; "O 

550 PRINT AT 20,27;" ";AT 20,29 
3" ";AT VAR "19",27;” ";AT VAL " 
19%,29;%-* 

560 RET- RN 


0; "TORRES TT 
O; "TRE 
O ; "EENDO 0 00 ER 
0; "Cr TT 





0; "MeccceB";AT 
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600 FOR P=0 TO 9 

610 TO 3 

620 LET NT (RND*100) 
630 FOR Z=0 TO Y 
640 NEXT Z 

650 PRINT AT 2,26;" 
a ";AT 4,22; 
20;" ' 
660 IF INKEY$="S" THEN GOTO 690 
670 PRINT AT 5,20; "GERE" ;AT 4, 
24; mma)" ;AT 5,28; ":";AT 20,28; 
e 

680 IF INKEY$="S" THEN GOTO 200 
o 

690 PRINT AT 4,23;" 
,21;" ";AT 5,28; 
700 GOSUB 400 

710 PRINT AT 3,28;":";AT 4,28;" 
2";AT 20,28; "2" 

720 NEXT L 

730 GOSUB 1000 

740 NEXT P 

750 POKE 16418,0 

760 PRINT AT 22,2;"ACABARAM AS 
ISCAS." 

770 GOSUB 6000 

780 PRINT AT 22,1;"VOCE QUER OU 
TRA PESCA ? S/N ?" 

790 IF INKEY$="S" THEN RUN 20 


“;AT 3,24 
";aT 5, 


";aT 5 


1040 IF P>=5 THEN LET 

1050 IF P<=4 THEN LET 

1060 IF P>=5 THEN LET 

1070 PRINT AT D,G+1;" 

1080 RETURN 

2000 PRINT AT 4,24;" 

20;" “;AT 6,19;" *; ,28; 
" ";AT 6,28;" ";AT 7,28;" "SAT B 
,28;" “;AT 9,28;" ";AT 10,28;" " 
2010 PRINT AT 11,28;" ";AT 12,28 
3" “;AT 13,28;" ";AT 14,28;" ";A 
T 15,28;" ";AT 16,28;" ";AT 

8;" ";AT ;" ";AT 19,28; 

AT 20,2 > 

2020 PRINT AT 6,19;"';AT 5,1 
GE";AT 4,20; "TB :";AT 3,21;"68 
:"2AT 2,22; "GB: ";AT 1,23; TB" 
2030 FOR N=5 TO 12 

2040 PRINT AT N,24;":" 

2050 NEXT N 

2060 PRINT AT 13,23;"/";AT 14,22 
; THE" ;AT 15,22; AT 16,22;" 


O";AT 19,22; "PCR" 

2070 LET H=H+1 

2080 IF H<=9 THEN PRINT AT 18,5; 
H 

2090 IF H>=10 AND H<=99 THEN PRI 
NT AT 18,4;H 


2170 PRINT AT 1,23;" “;AT 2,22; 
“ “;AT 3,217” “sAT' 4,209" MA 
€8,19;* “COSar O ta qr 

2180 GOSUB 400 

2190 GOSUB 500 

2200 GOTO 610 

4000 CLS 

4010 PRINT ,, "ENC IER pRe qe 
[Ea IE Oo.) 


4020 PRINT "E ELSTENI EOTTO R 
ETR 

4030 PRINT "ETTT Ria iai El NITRO 
Lo tm im! CA 


4040 PRINT AT 4,30;"D" 
4050 FOR W=29 TO O STEP -1 
4060 PRINT AT 4,W; "a" 
4070 NEXT W 

4080 PRINT ,,,+" 
COES*";TAB 9;" 

4090 PRINT ,,"l - VOCE DEVERA FI 
SGAR O PEIXE QUANDO APARECER UM 
B, PRESSIO- NANDO A TECLA 5." 
4100 PRINT ,,"2 - CADA PEIXE FIS 
GADO VALE 10 PONTOS. SE V. FISG 
AR UM PEIXE, A ISCA CONTINUA SE 
NDO A MESMA, MAS SE V. PERDER O 
PEIXE EM 3 CHANCES, V. PERDE 
UMA ISCA." 

4110 POKE 16418,0 


*INSTRU 


800 PRINT AT 22,17; "GESHN";AT 2 
2,25; "S";AT 22,27;"0' 

810 IF INKEY$="N" THEN STOP 
820 PRINT AT 22,17;“PESCA";AT 2 


2100 IF H>=100 AND H<=999 THEN P 4120 PRINT ,,"3 - PRESSIONE ""p" 
RINT AT 18,3;H " PARA INICIAR A PESCA, E TENHA 
2110 IF H>1000 THEN PRINT AT 22, UMA ""BOA""" 
2; "VOCE ACABOU COM OS PEIXES." 4130 PRINT AT 22,10;"<l 

AT 22,27; 2120 IF H>1000 THEN GOTO 770 4140 IF INKEY$="P" THEN RETURN 
830 coro 790 2130 PRINT AT 13,23;" ";AT 14,22 4150 PRINT AT 22,10;"<PESCARIA>" 
1000 PRINT AT 22,2;"0 PEIXE LEVO ;" ;AT 16,22;" 4160 GOTO 4130 
U SUA ISCA." ;AT 18,22; 6000 FOR U=0 TO 30 
1010 GOSUB 6000 “saT 19,22;". * 6100 NEXT U 
1020 PRINT AT 22, 2; "ENNNaNta 2140 FOR T=12 TO 2 STEP -1 6200 RETURN 
os 2150 PRINT AT T,24;" " 9000 SAVE "FISHING" 
2160 NEXT T 9999 RUN 


1030 IF P<=4 THEN LET D=11 





A Nasajon Sistemas lança um novo conceito 
para agilizar a sua empresa: 


A Nasajon Sistemas está lançando no mercado uma série de programas específicos que podem dinamizar 
ainda mais as diversas áreas de sua empresa. 

São mais de 50 programas diferentes para DGT 1000, 

CP 500, D 8002, TRS 80, NAJA, JR e outros. 

Com os programas da Nasajon Sistemas você verá porque a 
pressa é amiga da perfeição. 


PREÇO ESPECIAL DE LANÇAMENTO 


Contabilidade 35.064,00 | 210.389,00 
Controle de Estoque 56.183,00 | 140.259,00 
Controle de Custos 35.064,00 
Mala Direta 42.077,00 
Mala Direta c/Ed. Texto - 
Contas a pagar/receber 42.077,00 
Tesouraria (C Saldo bancário) - 
Crediário (p /D 8002) = 
Admin. de Imóveis 
Editor de Texto 
Arquivo de Processos 
Controle de Livros 
Controle de Cheques 
Biorritimo 

Decisão 


Nasajon Sistemas: 
Um jeito fácil de resolver os problemas de seu computador. 


* Desenvolvemos qualquer tipo de software de acordo 
com as necessidades de sua empresa. 
* Antes de comprar seu computador solicite 
nossa assessoria, sem compromisso, 
para análise, implantação e apoio. 
* Descontos para revenda. 
* Atendimento por reembolso 
para todo Brasil. 


MICRO SISTEMAS, janeiro/84 25 


103.000,00 
175.324,00 
105.194,00 
105.194,00 
245.454,00 
- 385.714,00 
28.051,00 - 
21.038,00 e 
17.532,00 e. 
17.532,00 
14.025,00 
15.428,00 
15.428,00 
56.103,00 
21.150,00 


21.025,00 
22.428,00 
22.428,00 
63.103,00 
28.150,00 

















= Av. Rio Branco, 45 gr. 1311 CEP 20090 
Você também encontra esses programas Tel. (021) 263.1241 — Rio de Janeiro 


em nossos revendedores credenciados. 
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— requentemente quando estamos 
trabalhando em BASIC (Apple- 
soft), sentimos a necessidade de 

— INCOrpOrar em nosso programa 
uma ou mais sub-rotinas em linguagem 
de máquina. Existem mesmo, como sa- 
bemos, situações em que esta operação 
é inevitável, como na geração de notas 
musicais ou quando se deseja velocidade 
na movimentação de figuras no vídeo, 
como nos jogos. É comum também, nes- 
tes casos, necessitarmos passar variáveis 
ou dados, de um modo geral, para estas 
sub-rotinas. 

Nestas ocasiões, nosso BASIC dispõe 
de instruções como CALL, USR ou o 
POKE (esta última apenas para passar 
dados), cada qual com seu singular po- 
tencial. Mas, na maioria das vezes, o 
meio que parece ser o mais eficiente, o 
mais prático ou até mesmo o mais sim- 
pático e elegante é o célebre Ampersand 
( &). Para se chamar uma ou mais sub- 
rotinas em linguagem de máquina, como 
extensão ao BASIC e, ao mesmo tempo, 
passar dados, mesmo que complexos 
como uma string, o Ampersand é o meio 
mais consagrado. 


Ocorre, contudo, que nossos manuais 
não trazem muita notícia sobre o em- 
prego do Ampersand. No manual do 
Apple ( &* AZ2L0006, pg. 123), por 
exemplo, apenas consta uma nota que 


- 


Nelson Filho 





diz: “o Ampersand destina-se somente 
ao uso interno do computador; ele não 
é propriamente um comando e sim um 
símbolo que, quando executado como 
uma instrução, causa um pulo (jump) 
para o endereço S3F5”. De fato, o 
Ampersand não é propriamente um co- 
mando, a não ser quando associado a 
uma sub-rotina em linguagem de máqui- 
na, configurando-se assim, eventualmen- 
te, uma extensão para o nosso BASIC. 


No entanto, esta vaga explicação não 
orienta o usuário quanto ao adequado 
emprego do recurso. À sua aplicação, na 
realidade, constitui-se numa técnica 
particular e nem sempre tão simples — é 
preciso, antes de mais nada, compreen- 
der bem como o Applesoft trabalha na 
interpretação dos comandos em um pro- 
grama. Vamos então preencher esta la- 
cuna, discutindo o emprego da técnica 
do Ampersand. Como ele pode ser em- 
pregado a fim de estender o BASIC, 
adicionando comandos extraordinários 
ao nosso interpretador, de forma elegan- 
te e eficiente. 


Para o exame que se segue, presumo 
que o leitor já esteja habituado a traba- 
lhar em Assembler. Receio que o não 
iniciado tenha dificuldade em acompa- 
nhar mas, de qualquer forma, lendo com 
cuidado certamente encontrará informa- 
ções úteis. 





Mr. Ampersand: um recurso elegante e eficiente em Applesoft quando se 
trata de chamar sub-rotinas em linguagem de máquina, como extensão ao BASIC 








Mr. Ampersand 


O AMPERSAND 


Vimos que quando o BASIC encon- 
tra o Ampersandnuma linha do progra- 
ma, ele faz um pulo para o endereço 
$3F5. Vamos ver o que isto significa. O 
endereço $3FS, bem como outros no 
alto da página $03, são reservados para 
conter vetores. Vetores que nada mais 
são do que instruções do tipo JMP. 
Assim, o BASIC, durante a execução do 
programa, encontrando o Ampersand, 
vai “procurar” naquele endereço um ve- 
tor, que deverá estar apontando para a 
sua sub-rotina em linguagem de máqui- 
na, carregada em algum ponto da memó- 
ria segundo sua conveniência. A sub-ro- 
tina será então executada e, em seguida, 
Rs cg volta a assumir o controle, 

do continuidade ao programa em 
BASIC. 

Tudo muito semelhante ao um sim- 
ples CALL, exceto pelo fato de que o 
endereço é passado via vetor. Desta for- 
ma, a primeira providência do programa- 
dor é alocar, a partir do byte $3F5, 
uma instrução da forma JMP aaaa, onde 
aaaa é o endereço da sua sub-rotina. Es- 
ta instrução ocupará então os bytes 
$3F5, $3F6 e $3F7, que são reserva- 
dos para este fim. 

Bem, até agora nada de extraordiná- 
rio. Isso basta, se você deseja a 

CALL 


o & funcione como um simples 
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“sub-rotina. Não obstante, se você for 
empregálo para chamar duas ou mais 


— funções diferentes, dentro de um mes- 
mo programa, e/ou passar dados para a 
sub-rotina, é preciso um pouco mais do 
que isso. Como, por exemplo, se você 
quiser utilizálo para chamar uma sub- 
rotina que gere notas musicais, como a 
que foi apresentada por MS na edição de 
maio/83, no artigo “O som nosso da ca- 
da micro”, de Rudolf Horner Jr. Nes- 
te caso, trata-se de uma sub-rotina sim- 


que gera uma nota em função de- 


atos o período e a duração da no- 
ta. Na ocasião, foram adequadamente 
em dos os comandos POKE e 
CALL para, respectivamente, passar os 
dados e chamar a sub-rotina. Vamos ver 
como isto pode ser feito com o &. 

Poderíamos declarar simplesmente 
&P, D, por exemplo, onde P será o valor 
do período e D a duração. Assim, ao 
invés de três declarações (POKE P: 
POKE D: CALL sub-rotina) teríamos 
apenas uma. Se por um lado esta única 
declaração é, como se pode ver, mais 
elegante e prática, exige maior trabalho 
na construção da sub-rotina que, agora, 
necessita interpretar o comando, como 
faz o interpretador BASIC. Temos, en- 
tão, que antepor à nossa sub-rotina de 
geração de notas, no caso, instruções 
para interpretar a declaração, verifican- 
do a sintaxe e colhendo os dados para 
depois executá-la. Para isso, vamos ver 
como o BASIC faz este trabalho de 
interpretar os comandos e, especialmen- 
te, estudar uma particular rotina do 
Applesoft conhecida como CHRGET, 
que, provavelmente, lhe será muito útil 
outras vezes. 


INTERPRETANDO 


Sempre que você está dirigindo as li- 
nhas de um programa, em Applesoft ou 
congênere, esse interpretador estará 
executando a tarefa de codificar e ar- 
mazenar suas instruções em lugar pró- 
prio da memória para, futuramente, 
serem lidas e executadas mediante o 
comando RUN. Vejamos um exemplo. 


Considere as seguintes linhas: 

10 TEXT 

20 POKE 6,35 : POKE 7,75 : CALL 768 
30 & 72,63 


Após digitá-las, você poderá verificar 
como finalmente elas foram codificadas 
e armazenadas. Para isto, chame o moni- 
tor com um CALL-151. Em seguida, já 
no monitor, entre com 800.828. Assim, 
teremos: 


*801.828 


0801- 
0808- 
0810- 
0818- 
0820- 


7 
os 
3A 
37 
Ar 


oA 00 
00 B9 
37 2c 
38 00 
32 2c 


89 
36 
37 
26 
39 


1c 

NS SAS 
3A 8€ 
1E 00 
oo 00 
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Muito bem, aí estão aquelas linhas 
codificadas. Do byte $801 ao $ 806 te- 
mos a linha 10; do $807 ao $8IF, a 
linha 20; do $820 ao $825, a linha 30 
e, finalmente, os dois últimos bytes, com 
zeros, que representam o fim do progra- 
ma. Os dois primeiros bytes de cada li- 
nha indicam o endereço da próxima li- 
nha do programa. Os dois subsegientes, 
o número da presente linha e, em segui- 
da, as declarações propriamente ditas. 
Repare que toda linha termina com um 
zero e que todas as palavras reservadas, 
como + POKE, etc., ocupam ape- 
nas um byte, que terá sempre um valor 
maior ou igual a $80, correspondente- 


do Z=1 (Z-flag set) se um $00 (fim de 
linha) ou um $3A (:) for encontrado e, 
ainda, C =O (C-flag clear) se um (positi- 
vo) dígito numérico (0-9) for encontra- 
do. Repare que se a sub-rotina for cha- 
mada a partir da posição $00B7 (entra- 
da” secundária conhecida como 
CHRGOT), teremos o mesmo processo, 
exceto que agora não haverá o incre- 
mento de TXTPTR. 

Durante a execução de um programa, 
o Applesoft terá ajustado TXTPTR 
para, via CHRGET, buscar, um a um, os 
bytes que compõem o programa — pre- 
viamente codificados e ordenados na 
memória — a fim de processá-los. No 


Listageml 


FONTE: CHRGET 

0000: 

0000: 

00003 * 

0000: + 

0000: x 

0000: . 
º 
+ 


ESSA 
+ 


CHRGET 


(APPLESOFT) 
00003 
0000: ...eeeeeesaaaa, 


AR 
PROXIMO OBJETO DESIGNADO CHRG! 
o 


, 
+ 


+, 
* 
+, 
, 
* 
+ 


ET. 0BJO 


ORG $00B1 


j 
00B1:E6 CHRGET 
00B3:DO 
00BS:E6 
00B7:AD 
OOBA:C9 
00BC: BO 
OOBE:C9 
00Co:FOo 
00C2:38 
00C3:E9 
00C5:38 
00C6:E9 
00C8:60 


BS 
oz 
B9 
os 
sa 
oA 
zo 


INC 
BNE 
INC 
LDA 
cmr 
BCS 
cmP 
BEQ 
SEC 
SBC 
SEC 
SBC 
RTS 


sB6 
CHRI 
sp? 


CHRGOT s0z: 


s00i 
CHR 


30 “ss 


DO 4$D: 


4** BEM SUCEDIDO ASSEMBLY: SEM ERRO 


mente. Assim, para o TEXT temos o va- 
poe $89, para o POKE o valor $B9, e 

im por diante. Nosso & é representa- 
= no byte $820 pelo valor SAF. 

Agora, quando o Applesoft receber 
o comando RUN, ele terá que ir buscar 
o programa a partir do byte $801; ler, 
byte por byte; interpretá-los e executar 
as instruções. Para esse trabalho, ler 
byte por byte, o Applesoft se utiliza de 
uma sub-rotina conhecida como 
CHRGET (listagem 1). Precisamos estu- 
dá-la porque faremos o mesmo uso para 
interpretar nosso Amper-Comando. 

Esta sub-rotina é construída pelo 
Applesoft e irá residir na RAM, a partir 
do byte $00B1, na página $00. Sua 
função é buscar um caráter (byte) em 
algum endereço previamente ajustado 
nos bytes SB8 e $B9, conhecidos como 
TXTPTR. Assim, seu primeiro trabalho 
é incrementar para apontar o 
próximo caráter a ser recuperado. Em 
seguida, este caráter é carregado no 
acumulador. E, finalmente, será ajusta- 


“S3A :É 


“s20 


3 INCREMENTA TXTPTR 
GOT 
08 FAPANHA O CARACTER 
< OU = "4"? 
5SIM - SAI 
:NAO — VERIFICA SE É ESPACO 
1SIM - PEGUE O PROXIMO 
FASSEGURA C=0 SE 
o 3 DIGITO NUMERICO 


ca 


GET 


o 
FSAIDA 





momento em que ele, em algum ponto, 
encontrar um Ampersand, chamará no- 
vamente CHRGET, para e só então des- 
viar para o vetor $3F5 (é importante 
entender isto). Desta forma, ao se iniciar 
o processamento de sua sub-rotina, 
TXTPTR conterá o endereço do caráter, 
em seu programa, que vem imediata- 
mente após o &. Esse caráter, por outro 
lado, estará no acumulador. Aí está 
todo o truque. 

Podemos agora construir nossa sub- 
rotina, capaz de ler o que se segue ao & 
interpretando e executando. Para isto, 
.não existe um padrão específico. Tudo 
vai depender da arquitetura do coman- 
do, da forma, da sintaxe e da função, 
enfim. Poderemos sempre utilizar para 
ler simplesmente CHRGET ou qualquer 
outra conveniente sub-rotina do Apple- 
soft, que ainda execute outra função de- 
sejável. Ou, até mesmo, você poderá 
criar algo extraordinário. Tudo, afinal, 
vai depender da habilidade e experiên- 
cia do programador. 
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MR. AMPERSAND 


FONTE: AMPER-SOM 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 


DOVNCUDAUN- 
“a 


0000: 10 CEPE A 


113 
PROXIMO OBJETO DESIGNADO 
ORG 


CECERDOEEDDDDDDEE 
AMPER-SOM 
(& P,D) 


P=PERIODO 
D=DURACAO 


x :20 
+ 
x :a5 
x Fo 
, 
+ 
x 
x 
x 





AMPER-SOM. 0BJ 
$0300 


=sensssesssss==s 


IGUALDADES 


PERIODO EoU 
DURACAO EOU 
GETBYT EOU 
CHKCOM EOU 
WAIT EoU 
SPKR EOU 


$06 
$07 
sEsrs 
$DEBE 
sFCAS 
$C03o 


3 INTERPRETANDO 


juEnanesansanaaas 


Todavia, deve-se ter em conta, e ter o 
cuidado de que, ao retornar para o 
Applesoft, R aponte para a posi- 
ção imediatamente após o Amper-Co- 
mando, que deverá equivaler ou a um 
$00 (fim de linha) ou a um S3A (:). 
Isto, naturalmente, para que o Apple- 
soft, ao resgatar sua autoridade, possa 
continuar o lógico processamento do 
programa em BASIC. Lembre-se de que 
CHRGET, se empregado adequadamen- 
te, lhe assegurará isso quando acusar 
Z=1. Por via das dúvidas, existe uma 
sub-rotina do Applesoft, em SD995, 
que garante que TXTPTR está no fim da 

eclaração. Assim, você poderá encerrar 
sua sub-rotina com um conveniente JMP 
SD995. 


UM EXEMPLO SIMPLES 


Vamos ver, para finalizar, um exem- 
plo simples. Voltemos à mencionada 
sub-rotina para gerar notas musi- 
cais. Vamos então associá-la ao Amper- 
sand. Havia sugerido anteriormente a 
seguinte forma: &P, D; onde P corres- 
ponde ao valor do período e D ao valor 
da duração. Acompanhe agora a lista- 
gem 2 que traz, em Assembler, o progra- 
ma denominado Amper-Som. 

Primeiramente é preciso buscar o va- 
lor do período e duração. Já existe uma 
sub-rotina do Applesoft, capaz de fazer 
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isso para nós. É conhecida como 
GETBYT e reside em SE6F8. GETBYT 
avalia uma expressão apontada por 
TXTPTR e salva o resultado no registro- 
X. O resultado deverá ser um valor entre 
O e 255, que é o nosso caso, senão o 
programa será interrompido com a men- 
sagem de quantidade ilegal. Amper-som 
chama então GETBYT e depois transfe- 
re X para o byte -$06. Em seguida, cha- 
ma CHKCOM e SDEBE, outra sub-roti- 
na do Applesoft que verifica se o cará- 
ter apontado por TXTPTR corresponde 
a uma “*,”. Caso positivo, TXTPTR é in- 
crementado e o programa continua; do 
contrário, é interrompido com a mensa- 
gem de erro de sintaxe. Em seguida, 
GETBYT apanha a duração que é trans- 
ferida para $07. Repare que até aqui foi 
feito o correspondente a POKE P, 6: 
POKE D, 7. 

A partir daí, já de posse dos dados, 
vamos à execução propriamente dita. 
Primeiro carrega-se o acumulador com o 
valor do período. Se este for igual a ze- 
ro, O programa fará uma pausa, corres- 
pondente à duração indicada. Para isso, 
carrega-se o acumulador com o valor da 
duração e chama-se WAIT em $FCAS8, 
que gera uma pausa em função do valor 
no acumulador; 1/2(26+27A+5A?) u 
segundos. Se o período for diferente de 
zero, executa-se a nota. Saiba que a saí- 
da TXTPTR estará apontando para o 


-— **% BEM SUCEDIDO ASSEMBLY: 


GETEYT 
PERIODO 
CHECOM 
GETEYT 
DURACAO 
PERIODO 


BEEP2 


PERIODO 
BEEP 


PAUSA JSR 
SAIDA RTS 


WAIT 


SEM ERRO 


próximo caráter após a declaração, co- 
mo desejável, uma vez que GETBYT 
avança TXTPTR. 

Muito bem! Espero que a análise te- 
nha sido adequada para você. As possi- 
bilidades, como você deve ter percebi- 
do, são inúmeras. Tudo vai depender da 
sua criatividade e habilidade. Você po- 
derá incrementar seu BASIC com mui- 
tos outros comandos. Se você for usar 
mais um Amper-Comando, dentro de 
um mesmo programa, é razoável que 
você defina um rótulo para cada um, 
como por exemplo: & ELSE, & WAIT, 
ou ainda & A, & B, & C e assim por 
diante. Isso, naturalmente, visa a distin- 
gui-los e até dar um toque de elegância. 
Neste caso, cuidado com as palavras re- 
servadas. Veja bem: suponha que, em 
nosso exemplo, ao invés de & P, D eu 
optasse por & NOTA (P, D) ou mesmo 
& TOM (P, D). Observe que NOT e TO 
são palavras reservadas pelo Applesoft e, 
assim, seriam codificadas como tal. 
Além das consegiiências óbvias, listan- 
do-se o programa o comando iria apare- 
cer desfigurado. E 


Nelson Filho dedica-se ao desenvolvimento e 
pesquisa de software básico, prestando servi- 
gos de assessoria técnica para várias empresas 
de Informática. Possui um Apple Il Plus há 
dois anos. 
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BIANCHI, P.; BEZERRA, M., 
MICROCOMPUTADORES — 
Arquitetura, Projeto e 
Programação, LTC — Livros 
Técnicos e Científicos Editora 
S. A., Cr$ 5.800,00 (jan/84). 


[|] O texto se destina aos leitores 
que já sabem o que é um compu- 
tador e o que é um programa. Não 
é necessário nenhum conhecimen- 
to de eletrônica. Visa ao aprofun- 
damento dos conhecimentos rela- 
tivos à construção de computado- 
res e programação a nível de lin- 
guagem Assembler e de máquina. 
Os profissionais e estudantes de 
computação, bem como os entu- 
siastas do computador pessoal en- 
contrarão neste livro um meio de 
satisfazer sua ânsia de aprofunda- 
mento, 

O texto se originou de notas 
de aulas de vários cursos referen- 
tes a projetos com microprocessa- 
dores ministrados pelo Prof. Paulo 
Bianchi na Universidade de Santa 
Clara, Califórnia, e na Universida- 
de Federal do Rio de Janeiro, 
bem como dos cursos referentes a 
programação de computadores 
ministrados pelo Prof. Milton Be- 
zerra, também da UFRJ. 





YONG, €.S., Banco de Dados, 
Editora Atlas, Cr$ 7.900,00 
(jan/84). 


|| Um guia prático a todo profis- 
sional e usuário que estejam en- 
volvidos no desenvolvimento e 
utilização de BD é a principal fun- 
ção deste livro. Nos exemplos for- 
necidos, o autor procurou trans- 
mitir uma visão essencialmente 
prática no projeto e implantação 
de BD. Esse processo é efetuado 
através da real utilização dos pro- 
gramas e módulos constituintes 
dos sistemas de gerenciamento de 
BD mais conhecidos no mercado 
brasileiro. 

O exame detalhado das fun- 
ções e estruturas internas de siste- 
mas de gerenciamento de BD ob- 


BORGES, J. A., BASIC — 
Aplicações Comerciais, LTC — 
Livros Técnicos e Científicos 
Editora S. A., Cr$ 4.500,00 
(jan/84). 


| A abordagem geral do livro se 
baseia em exemplos voltados para 
aplicações do tipo gerencial. Par- 
tindo de programas completos, 
que são analisados, o leitor é guia- 
do ao entendimento do computa- 
dor e da atividade de programa- 
ção. O livro cobre todos os deta- 
lhes da linguagem BASIC incluin- 
dose os aspectos que não são pa- 
dronizados nas diversas versões 
para diferentes computadores. O 
capítulo sobre arquivos fornece, 
especialmente, a base para desen- 
volvimento das aplicações de uso 
na administração em geral. Embo- 
ra a ênfase seja no BASIC para mi- 
cros, esse texto poderá ser utiliza- 
do para a formação de programa- 
dores em BASIC para outros com- 
putadores de maior porte. 


EST TANGO) 
DADÁINOS 





jetiva fornecer ao leitor uma visão 
conceitual e teórica da tecnologia 
atual dos SGBD. A este aspecto 
adicionam-se capítulos sobre pa- 
dronizações da tecnologia de BD e 
estruturação e desempenho de ar- 
quivos. Outro enfoque relevante 
refere-se à construção de modelos 
de dados, importante referencial 
para posterior projeto, implanta- 


ABREU, C. A.; REIS, D., Curso 
de BASIC — Volume |, Edição: 
Micro-Kit, Cr$ 4.200,00 (jan/84). 


BÃO Curso de BASIC Volume ! é 
resultado da experiência de apro- 
ximadamente oitenta cursos de 
linguagem BASIC promovidos pe- 
la Micro-Kit Educacional. 

O livro é composto por dez au- 
las e, ao final de cada uma, são 
propostos exercícios de verifica- 
ção de aprendizado, solucionados. 
A primeira aula é uma introdução 
à programação e, em seguida, são 
explanados os elementos de lin- 
guagem BASIC, conduzindo o lei- 
tor a elaborar um programa apli- 
cativo passo a passo. A parte final 
é dedicada aos gráficos e desenhos 
na tela para jogos. 

Como é comum surgirem mui- 
tas dúvidas na transformação de 
comandos de outras máquinas pa- 
ra as da linha Sinclair, foi criado o 
anexo |, que dá “dicas” de como 
proceder em tais casos. 

Um dos pontos mais importan- 
tes do livro é o planejamento das 
aulas, com programas-exemplos 
correspondentes à parte teórica, o 
que possibilita ao leigo aprender 
rapidamente a linguagem BASIC. 





SHIMIZU, T., Processamento de 
Dados nas Empresas, Editora 
Atlas, Cr$ 6.500,00 (jan/84). 


BA empresa, a máquina (hara- 
ware), a análise e programação 
(software) e a administração são 
os tópicos do estudo integrado 
que este livro apresenta, dando 
uma visão e um treinamento gra- 
dual em processamento de dados 
nas empresas. O livro abrange to- 
da a função de PD, não se limi- 
tando apenas ao CPD, mas procu- 
rando envolver a alta administra- 
ção e os departamentos funcionais 
(contabilidade e finanças, marke- 
ting, produção e recursos huma- 
nos), num sistema que, de modo 
direto ou indireto, participa do 
funcionamento das tarefas de PD. 

O livro contém, entre outras, 
uma explicação da organização 
funcional da empresa e de como 
os métodos convencionais de lan- 
çamento, escrituração e operação 
com formulários podem ser trans- 
formados em um fluxo ou sistema 
de informação. Ensina a seleção e 
o uso de um sistema hardware 
adequado de PD para a empresa e 
também programas de software pa- 
ra serem processados pelo compu- 
tador. 





ção e operação de BD e, por fim, 
uma descrição e análise dos prin- 
cipais instrumentos para adminis- 
tração de BD. 

A reunião desses aspectos nu- 
ma mesma obra visa a fornecer to- 
do um conjunto de conhecimen- 
tos que envolve os principais as- 
pectos ligados ao BD, possibilitan- 
do um entendimento e absorção 
globais do tema. 


LAGROTTA FILHO, Carlos, O 
Microcomputador na Pequena 
Empresa. 


| O Microcomputador na Peque- 
na Empresa é um livro em impres- 
são didaticamente organizada, que 
parte de programas mais simples 
até um sistema integrado em on 


line, e destina-se unicamente aos 
empresários de pequenas empre- 
sas que, possuindo um computa- 
dor da classe TK8B2-C, TKB5 e 
NE-Z8000, pretendem utilizá-lo 
com o propósito de agilizar al- 
guns serviços. 

O livro apresenta programas 
simples e didaticamente estrutura- 
dos, visando ao usuário que não 
possui prática ou experiência an- 
terior no relacionamento com 
computadores. A linguagem BA- 
SIC, dos programas, não envolve 
lógica de programação muito 
complexa e nem se vale de opera- 
dores muito complicados, tais co- 
mo matriz multidimensionada, 
operadores lógicos, etc. O resulta- 
do disso são programas facílimos 
de serem entendidos e assimilados. 
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Ingredientes: imaginação, paciência e conhecimento de eletrônica. 
Resultado: seu TK com interfaces para fazer o que você quiser 








Arrisque e petisque 
com seu micro 


Wilson de Carvalho Junior 





uando pensei em comprar um microcomputador pes- 

soal, tinha uma pergunta em mente para a qual não sa- 

bia a resposta: seria possível utilizar o micro para con- 

trolar algum equipamento? Tal questão vinha do fato de eu 

ir um sistema de ferro-modelismo e imaginar se poderia 

controlá-lo através do micro. O controle deveria ser sobre a ve- 

locidade das locomotivas (duas independentes), a direção 
(frente-ré) e sobre os desvios (14 desvios, 28 posições). 

Possuo um TK82-C e foi a partir daí que comecei a pensar 
em tudo o que eu pa fazer com ele. O meu objetivo ao 
escrever este artigo foi justamente este: mostrar o que já con- 
segui fazer com meu micro. 

A primeira mudança que fiz no TK foi a inversão da tela, 
isto é, caracteres brancos em fundo preto. Utilizando uma cha- 
ve de um pólo/duas posições e muita paciência, consegui efe- 
tuar a mudança. O esquema da inversão está na figura 1 e, pela 
sua simplicidade, acho que dispensa maiores comentários. 


CORTAR O CIRCUITO IMPRESSO 





Quando passei para as interfaces é que a coisa complicou 
um pouco. Como não disponho do pompa elétrico do TK e 
nem de um osciloscópio, fica meio difícil projetar alguma in- 
terface. É preciso muita calma e não desanimar com alguns 
problemas que aparecem. 
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Figura 2 
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CONHECENDO O TK 


O TK82-<C utiliza a UCP Z80, cujas pinagem e funções estão 
ma figura 2. No conector traseiro, onde encaixa a expansão de 
memória, estão presentes todas as linhas da UCP, além de +9V, 
*5V e OV. Segundo o manual, é possível fazer com o TK, a 
princípio, tudo o que se faz com o Z80. Foi baseado nesta fra- 
se que achei que poderia construir as interfaces. 

ter acesso às linhas da UCP, optei por utilizar o próprio 
soquete da expansão de 16Kb. Furei a caixa plástica da memó- 
mia e coloquei dois cabos de 10 vias paralelas, soldados nos ter- 
minais do soquete. O manual do TK82-C mostra um desenho 


] 

















> N lima 
CICLO DE 


LEITURA 
DADOS 





WAIT 





tie [A | Si Tao 
CICLO DE 


ESCRITA 


avos 





Figura 3 


do soquete traseiro e assim fica fácil determinar quem é quem. 
As linhas em que soldei os cabos foram: as oito linhas de dados 
(DO-D7), TORO, RD, WR, OV (comum) e as linhas de endereço 
AO, Al, A2, A3 e A7. 

No controle de sistemas externos à UCP é necessário o uso 
de instruções de entrada (IN) e saída (OUT). Na figura 3 temos 
os diagramas relativos ao tempo que as operações levam paraler 
e escrever em dispositivos de E/S. Quando a UCP encontra, por 
exemplo, uma instrução do tipo OUT n,A, onde n pode ter 
qualquer valor entre 00 e FF HEX (255 decimal) e A é o acu- 
mulador, a UCP colocará no barramento de endereço o núme- 
ron, a linha TORQ vai a O (indicando que vai haver uma ope- 
ração de E/S), a linha WR vai a O (indicando que a operação 
será de escrita (saída)) e o conteúdo do acumulador A é colo- 
cado no barramento de dados. 

Da mesma forma, se a instrução for IN A,n, o número n se- 
rá colocado no barramento de endereço, a linha TORQ vai a O 
como anteriormente, a linha RD vaia O (indicando que será fei- 
ta uma operação de leitura (entrada)) e o registrador receberá 
os dados do barramento de dados. 

Observamos assim que, para se efetuar uma operação de 
saída, por exemplo, é necessário decodificar as linhas de ende- 
reço, bem como as linhas TORO e 


DECODIFICADORES, LATCHES E CONVERSORES 


Foi na parte referente a decodificadores que encontrei as 
maiores dificuldades com relação ao TK82-C. Sabemos que 
existem 256 posições de endereçamento para periféricos de 
entrada e 256 posições para os de saída na UCP Z80. Contudo, 
o TK não aceita todas estas posições. Pelo que pude observar, 
parece que os endereços de saída do tipo 1+4n (n = 0,1,2...) 
não são aceitos pelo sistema. Se tentarmos tais endereços, o 
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MONK ROMPE A BARREIRA 
DOS TRS-S0 E LANCA A 
LINHA DE PROGRAMAS P/ 
OS MICROS TIPO apple. 
(Mexxi, APII, D3100, etc) 


Tome a decisao que mais de 2904 
usuarios de programas MONK para os 
micros TRS-80 <CP34a, CPSaa, NAJA, JR, 
DGT e DS000-1/2) tomaram : - Ponha o 
seu AFPFLE para trabalhar «com os 
aplicativos prontos para usar da MONK. 
- DS PROGRAMAS MAIS PRÁTICOS 
- DS MANUAIS MAIS COMPLETOS 
- à MÁIS AMPLA GARANTIA 
- A MAIOR REDE DE REVENDAS : 

77 Em 20 ESTADOS. 
Lista parcial de programas : 
Gerenciador de Banco Dados “ Gerador 
de Programas, Cantas Pagar “ Receber 
Estoques, Conta Bancaria, Editor Texto 
Contabilidade, Mala Direta; Compiladores 
Home Pack's e Game Pack's : 
Procure um revendedor MONK de sua 
cidade , ou peca um catalogo de 
programas para seu microcomputador 
tipo APPLE ou TRS-88. 


micro informática ltda. 
R. Augusta, 2690 2" and. Lojas 318 e 324 
Teis.: (011) 2800163 e 8522958 Cep 01412 SP 


monk, 
o software que faz você ficar 
feliz por ter um micro. 
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Figura 4 


TK executa a operação e apaga. É preciso, então, desligar a 
fonte e tornar a ligá-la — com a consequente perda do progra- 
ma — para que as coisas voltem a funcionar normalmente. Os 
endereços pares até 62 e os ímpares 3, 7, 11, 15, 19, 23, 27, 
31,59 e 63 foram testados e funcionam corretamente. 

Vejamos como efetuar a decodificação destes endereços. 
Partindo da hipótese de que necessitamos de um nível O para, 
digamos, ter acesso a determinado periférico de saída, precisa- 
remos inverter todas as linhas de endereço que estiverem no 
nível 1, efetuar a operação lógica OU com tais linhas, mais as 

i de endereço que estiverem com nível 1, e também com 
os sinais TORO e Na figura 4 temos um decodificador para 
o endereço 03. Se a operação for de entrada, basta trocar a li- 
nha por RD. No mercado, existem circuitos integrados que 
fazem esta decodificação para oito saídas. 

Observando a figura 5, vemos o esquema de um decodifica- 
dor 3x8, utilizando o CI 74LS138. Note que este decodifica- 
dor seleciona as portas pares de 00 até 14. A linha A7 foi em- 
pregada para habilitar o decodificador toda vez que A7 = 0. 
Isto é essencial, uma vez que o TK utiliza algumas portas (255 e 
254) enviar dados ao gravador e, assim, quando o TK usar 
o endereço 254 (11111110 binário) este será decodificado e 
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acionará o periférico 14 (00001110), o mesmo acontecendo 
com o endereço 255 (11111111), uma vez que a linha AQ não 
está sendo decodificada. 

Passemos agora para os latches. Quando queremos mandar 
dados da UCP para algum circuito externo, por exemplo um 
conversor D/A, é fundamental que esses dados sejam mantidos 
na entrada do conversor . Conseguimos isto através dos circui- 
tos flip-flop chamados latches (tranca). A partir dos CIs 
74L$74 e 74LS174, podemos construir um latch de 8 bits, 
como mostra a figura 6. A entrada de clock dessses circuitos 
conectamos a uma saída do decodificador e, desta forma, cada 
vez que a saída do decodificador sofrer uma transição 1» O » 
1, os dados do barramento de dados serão copiados na saída 
do flip-flop e mantidos lá até que nova transição na entrada de 
clock ocorra. 

Se ligarmos agora a saída do latch a um conversor D/A, 
obteremos, na saída do conversor, uma tensão analógica, que 
será proporcional ao número binário que estiver colocado na 
entrada. 

Uma forma simples e barata, porém não muito precisa, de 
se fazer um conversor D/A é valendo-se de oito resistores de 
1% de tolerância e de um amplificador operacional, como mos- 
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Figura 6 
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tra a figura 7. Este último está ligado como inversor e, assim, 


a tensão de saída será igual a: 
= vV=-SR |laa+ata,+a,qta,+ta ta +a 
a a 1/20 * “pt as PA 
Pre n[p-meg.e pás 2. Ts Té 3 AM 
RD pe pé 
1 *5%*u*IZ onde: ) an =0 seQn =0 
ONDE: a, = "1" SE Que 1" “an=1 seQn=1 
ig bo, de Pare eua positiva, basta colocar outro amplificador operacio- 
nal ligado como inversor com ganho -1. 


Se for necessária uma conversão com 
maior precisão e muito maior custo, 
podemos utilizar o CI DACO800 (Cr$ 
16.000,00) e um amplificador operacio- 
nal 741, como demonstra a figura 8. 

Usando os três circuitos mencionados 
(decodificador, latch e conversor), pude 
controlar a velocidade das locomotivas. 
Na figura 9 temos o circuito do contro- 
lador de velocidade duplo prt locomo- 
tivas). Foram empregados dois endere- 
ços, a saber: endereço 00 aciona o con- 
trole da locomotiva 1 e endereço 02 
pq SD ger da me Se, 
no lugar ve inversora polanida, 
de, colocarmos um relé cuja bobina é 
acionada pela saída de um circuito 

tch, podemos inverter a direção das 
locais, (frente-ré) ea de um 
2 ara 'ejamos: usando as portas de 
saída 04 e 06, teríamos as seguintes pos- 
sibilidades de instrução: 
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OUT 04, A com A = 00 — máquina 1 para frente 
OUT 04,A com À =01 — máquina 1 para trás 
OUT 06, A com A = 00 — máquina 2 para frente 
OUT 06, A com A =01 — máquina 2 para trás 


Podemos também controlar o ganho de um amplificador e, 
portanto, controlar o volume de um sistema de som. Um 
exemplo de como isto pode ser feito está na figura 10. Note 
que temos 16 posições de ganho se usarmos um CI 4046 — e 
256 posições se usarmos dois Cls. 
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Se você deseja assinar MICRO SISTEMAS, proceda da seguinte 
forma: 

— envie cheque nominal cruzado no valor de Cr$ 10.000, 
para ATI — Análise, Teleprocessamento e Informática Editora 
Ltda; — anexo, envie também seus dados pessoais: nome, 
profissão, cargo, empresa e endereço completo para remessa. 
Mas se você quer ficar por dentro mesmo da Informática, 
aproveite e assine também INFORMÁTICA 

& ADMINISTRAÇÃO: 

— envie cheque cruzado no valor de Cr$ 8.000, para ATI — 
Análise, Teleprocessamento e Informática Editora Ltda., e 
não se esqueça de remeter também seus dados pessoais, 
profissão, cargo, empresa e endereço para remessa. 


PARTICIPE DA PROMOÇÃO 
DE FÉRIAS MS/I&A! 


Receba, mensalmente, MICRO SISTEMAS e INFORMÁTICA 
& ADMINISTRAÇÃO pelo preço de Cr$ 15.000. Entre logo 
no nosso pacote antiinflacionário MS/I & A antes que acabe! 
Envie seu cheque cruzado no valor de Cr$ 15.000, para ATI — 
Análise, Teleprocessamento e Informática Editora Ltda., e 
anexe também seus dados pessoais. Nossos endereços: Rio de 
Janeiro: Rua Visconde Silva, 25 — Botafogo — CEP 22281 — 
Tels.: (021) 266-0339, 286-1797, 246-3839. São Paulo: 
Alameda Gabriel Monteiro da Silva, 1227 — Jardim Paulistano 
— CEP 01441 — Tel.: (011) 2804144. 





Além destas, podemos citar outras aplicações: controle de 
todo o sistema de som (volume, tonalidade, balanço), controle 
de frequência de osciladores através de programa, um sistema 
de luzes sequenciais totalmente programável etc. Os empregos 
são muitos, dependendo apenas da imaginação de cada um. 


OS PROGRAMAS 


As sub-rotinas de E/S são extremamente simples. Utiliza- 
mos POKE e USR para introduzir as instruções em linguagem 
de máquina e, respectivamente, executá-las. Até agora, usei 
= pie as instruções em Assembler LD A, x, OUT n, A, RET e 

ca 

LD A, x carrega o valor de x (entre 00 e 255) no acumula- 
dor A, e RET é uma instrução de retorno, que faz o processa- 
mento voltar ao sistema BASIC. Um programa que executa 
uma conversão D/A para cada valor de X, empregando o ende- 
reço 02, fica: 


01 RUN 30 

05 PRINT “VALOR DE X" 
10 INPUT X 

15 POKE 18401,X 

20 LET A = USR 18400 
25 GOTO 05 

30 POKE 18400,62 

35 POKE 18402,211 

40 POKE 18403,02 

45 POKE 18404,201 

50 GOTO 05 


Para gerar uma rampa de voltagem de O a Vmax, onde 
Vmax =—SRI x 255, basta introduzir as seguintes linhas: 
R 128 


10 FOR X = 0 TO 255 
15 POKE 18401,xX 

20 LET A = USR 18400 
25 NEXT X 

26 STOP 

50 GOTO 10 


É óbvio que este método para gerar uma rampa é extrema- 
mente lento e podemos fazer um comando FOR... NEXT em 
linguagem de máquina que o tornaria bem mais rápido. O ma- 
nual do TK traz uma lista das instruções em Assembler do Z80 
com os respectivos códigos em decimal, e assim fica mais fácil 
fazer os programas em linguagem de máquina. 

Estou projetando a interface de entrada, onde a UCP rece- 
berá informações a respeito da posição das locomotivas e pos- 
sa, desta forma, posicionar os diversos desvios, de acordo com 
um programa preestabelecido. 

Quero informar ainda que todos os circuitos apresentados 
aqui foram testados e se encontram atualmente em funciona- 


mento, sem apresentar qualquer problema. E 


LD A,x 
OUT A,02 
RET 





Formado em Física pela Universidade Federal do Paraná, Wilson de 
Carvalho Junior atualmente está fazendo pós-graduação na Unicamp na 
pá de semicondutores. Tem como hobby a eletrônica e a microcompu- 
tação. 
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Lojas 
de 


mucrocomputadores 








a edição anterior de MICRO 
SISTEMAS, publicamos a pri- 
meira parte dessa matéria, que 
constou de uma reportagem e de 
uma tabela mostrando as lojas 
revendedoras de micros de todo o 

Brasil. Neste número, damos continuidade e en- á 

cerramos a publicação dessa tabela, um serviço 

até então inédito nos veículos especializados. 

Através dela, os leitores poderão identificar as 
lojas mais próximas de sua cidade e escolher a q 
revenda a partir dos serviços que ela oferece. k 

Conforme já foi dito, a tabela foi confeccio- 
nada a partir de um questionário enviado a cerca E 
de 350 lojas, cujos endereços foram conseguidos 
através de pesquisa ao nosso arquivo e junto aos 
fabricantes de micros (sendo que alguns en- 
viaram sua lista de revendedores e outros não 
responderam nossa carta). 

Somando-se a isso o número quase diário de 
revendas que são inauguradas em todo o Brasil, 
certamente algumas lojas não receberam nosso 
questionário, visto que não sabíamos de sua exis- 
tência. 

Portanto, voltamos a pedir que as novas lojas 
revendedoras de micros passem a enviar para a 
Redação de MICRO SISTEMAS seus endereços, 
telefones e material informativo. 

Observe na tabela que as questões não respon- 





didas pelas lojas nos questionários foram as- ' 
sinaladas com um traço (— ). E 
" 

f 

ESSES 2 EFSE SL =Icoass Fem gre mesa 








Coordenação geral: Edna Araripe. Apuração: Stela Lachtermacher, Graça Santos e Cláudia Ramalho 
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Disquetes; papel p/ 
impressora 


Sim, só nacional | Sim, qualquer tipo 
(fabric. própria) 





Impressoras, grav. cassete. 
unid. disquete; tv comum; 
loystiçk 


CD-6809; PC 1211 


Fitas cassete; disquetes; 
papel p/ impressora; 
xs. p/ disquetes/fitas 


Sim, vinculado à 
compra de equip. 





bit rg Pg da Impressoras; modems; unid. 
disquete, monitores, 
interfaces, teclados 


Fitas cassete, disquetes, 
papel/fita p/ impressora; 
móveis 


Sim, nacional e 
estrangeiro 


Sim, vinculado à 
compra de equip. 








CP-200, CP-300, CP-500; 


Ea me fode TKB2-C, TKB3, TK8S 


Fitas cassete; disquetes; 
produtos de limpeza; 
Cxs p/ disquetes/fitas 


Sim, só nacional 
(Microdigital) 





Impressoras; grav. cassete, 
modems; unid. disquete. 
monitores; joystick. 
plotadoras; intertaces 


od DO BRASIL fast Equips. Kemitron, Prológica 
(MG) rj 


Impressoras: grav. cassete, 
monitores; tv comum, 
interfaces 


Fitas cassete; disquetes, 


Sim, qualquer tipo 
papel/fita p/ impressora 


Fitas cassete, disquetes, 

papei/fita p/ impressora: 

xs. p/ disquetes/fitas, 
moveis 


Sim, nacional e 
estrangeiro 
(Microsoft, 

fabric. própria) 


Sim, qualquer tipo 
nacionais 





K85: Maxxi; AP Il; 


TK83; TI Impressoras. grav. cassete, 
JR Sysdata; ED-281, ED-381 


modems; unid. disquete, 

monitores; joystick, 
interfaces 

DGT-100, qi 101; Pião! Impressoras; grav. casset 

modems, unid. disquete, 
monitores; tv comum 
joystick; plotadoras, 
expansões, interfaces 


AP "; ar Syedaas 
equips. Quartzil, Schumec 


Impressoras, modems; unid 
disquete, monitores, 
joystick, interfaces 


CP-200, CP-300, CP-500, 
Naja; Maxxi, JR Sysdata 


Impressoras; modems, unid. 
disquete; monitores, 
interfaces; teclados 


Disquetes. papel/fita p/ 
impressora, Cxs. p/ 
disquetes/fitas, arquivos; 
móveis 


Nacionais e 


Sim, qualquer tipo 
estrangeiros 


Fitas cassete, disquetes: 
papei/fita p/ impressora, 
moveis 


Nacionais e | Sim, ni nacional 


Di Mus, Microsoit, 
istron, Kitsis, 
LHM, Kristian) 
Fitas cassete, disquetes, Sim, só nacional 
papel/fita p/ impressora, 
produtos de limpeza; 
exs. p/ disquetes/fitas, 
arquivos, móveis, 
estabilizadores, piso 


p/ CPD's 


Sim, qualquer tipo 
Polymax, Filcres) 


Fitas cassete, disquetes; 
papel/fita p/ impressora, 
predutos de limpeza; 
exs. p/ disquetes/fitas; * 
arquivos; móveis 


Sim, qualquer tipo 
(Monk) 





Software/system PL mae Unitron, ) 
house Polymax, Dactron, Prológica. 
Digitus, Dismac, 
Microdigital, Prológica, Softec 


Impressoras; grav. cassete 
modems; unid. disquete, 
monitores; tv comum 
Ioystick; plotadoras; 
interfaces; teclados 


, | Impressoras; modemst unid 
disquete; monitores, 
tv comum; joystick 
“plotadoras. estabilizadores 
ATEC, intértaces, teclados 


TK82-C. TKBS: CP-200. CP-300, | impressoras, grav. cassete, 
CP-500: DGT-100. DGT-101 


Maxxi; JA Sysdata; equips. 
Edisa 


Impressoras; grav. cassete; 
modems. unid. disquete. 
monitores. joystick. 
interfaces; teciados 


; 
É 


monitores; ty comum; 
joystick; interfaces 


É) 
3 
ê 
8 


: Po Impressoras; gráv. cassete; 


CP-500; AP li; JA Syscuta: 
Maxxi; Microengenho; equips. 
Dismac, Digitus. 


modems, unid. disquete, 
monitores; tv comum, 
joystick; interfaces, 
teclados 


Sim, nacional 
e estrangeiro 


Fitas cassete, disquetes, 
papel/fita p/ impresso! 
produtos de limpeza, 
cxs. p/ disquetes/fitas, 
arquivos, móveis 


Sim, qualquer tipo 


Fitas cassete; disquetes 
papel/fita p/ impressora, 
arquivos, móveis 


Sim, só nacional 


(Sogemec) 


Sim, qualquer tipo 





Disquetes. papel/fita 
P/ impressora 


Sim, nacional e 
estrangeiro 


Sim, vinculado à 
compra de equip. 


Fitas cassete; disquetes, | Nacionais e 


Fitas cassete; disquetes; 
papei/fita p/ impressora; 
Cxs. p/ disquetes/fitas, 


Sim, vinculado à 
compra de equip. 


Sim, qualquer tipo 


cxs. p/ disquetes/ 
fitas; arquivos; móveis 





Fitas cassete; disquetes; 
papel/fita p/ impressora; 
cxs. p/ disquetes/ 
fitas, arquivos, móveis 


Sim, nacional e 
estrangeiro 


Sim, qualquer tipo 
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Esses, Pátio, | 
— CURSOS ENDEREÇOS 
Era 
& outros, curso Não. mas tem convênio Financ. aoad 
ma compra de micro | c/ isrdied manutenção | Financei Av. Paulista 2075, 2073, 2º and., Err ES E, Edit rsebpis: 1— E Paulo — SP 
E ( ENC 


— So de BASIC, cursos Não, mas encaminha ] A Cambial — Fedele Feoli & Filhos Ltda.. 
; p/ empresas ao fabricante 5 Rua Dr. Flores, 348 — tel: 26-3555 — Porto Alegre — RS 











fASIC e outros; cursos p/ 


empresas, curso gratis 
— ma compra de micro 


Sim, p/ qualquer ALPHA — Sistemas e Processamentos Ltda. 
equip. nacional Rua Góis Monteiro, 934, Bairro São Francisco — tel: 252-2287 — Bento 









Amo Decker S.A. — Indústria e Comércio 
Matriz: Alia Dr. Flores, 116 — Porto Alegre — RS 
Filial: Galeria Golden Center — tel 1 — Canoas — RS 





So de BASIC; cursos 
p/ empresas 


Sim, p/ quaiquer 
equip. nacional ate 3 meses, financ. 
Banco/Financeira 


Representações, Comércio e Industria Ltda. 
Av. João Alves da Fonseca e Silva, 1131 — tel: 351-3236 — Contagem — 









Beny Feira Permanente de Microcomputadores Ltda. 
Rua Domingos de Moraes, 407, Vila Mariana — São Paulo — SP 









Sim, p/ produtos 
comprados na loja 


So ge BASIC: curso grátis 
na compra de micro 


Financ. próprio 
ate 3 vezes, financ. 
Banco/Financeira; 
leasing 


Sim. p/ produtos Financ. próprio 


comprados na lo) até 6 meses, 
: e tinanc, Banco/ 


Financeira, leasing 



















Bucker 


BASIC e outros; cursos p/ Informática Comércio de Computadores Ltda. 
Av. Rebouças, 1458 — tel: 6852-2086 e 2682-3115 — São Paulo — SP 


empresas; curso grátis 
ma compra de micro 





So ge BASIC, cursos p/ Nao, mas encaminha Financ. próprio 
empresas, curso gratis ao fabricante je 3 meses, financ. 
ma compra de micro Banco/Financeira, 


Byte Shop 
[Rua Antonio de Albuquerque, 271, Savassi — Belo Horizonte — MG 





teasing 
BASIC e outros, cursos Sim, p/ produtos Financ. Banco/ CAP — Centro de Assessoria em Processamento de Dados Lida. 
p/ empresas comprados na loja Financerra, leasing Av. Costa e Silva, 680, Betania — tel: 237-1793 e 1033 — Manaus — AM 








So ge BASIC; cursos pr Sim, p/ produtos Financ. próprio Linha Hewiett 
empresas, curso gratis comprados na loja até 24 meses, financ.| Packard, Texas 
ma compra de micro Banco/Financeira, Instruments 

leasing; consórcio 






Castro Comercio de Computadores e mega Lida. 
Matriz: Rua Vidal Ramos, 30 — tel: 23-0491, 22-6! 22-6757 — Fioria- 
nópolis — SC 
Filial: Av. Centenanio, 3673/9 — tel: 33-1436 — Criciuma — SC 











Não, mas tem convenio c/ 
firma de manutenção 
IMS Eletronica) 







Linha Hewiett 
Packard 


BASIC e outros; cursos p/ 


empresas; curso graus 
na compra de micro 


Financ. proprio. 
financ. Banco/ 
Financeira, leasing 





Chip Shop Computadores 
Rua Ofélia, 248, Jardim Paulistano — tel: 211-4261 — Sao Paulo — SP 






So de BASIC, cursos Financ. proprio Linha Hewiett 


Sim. p/ produtos 


comprados na loja Comercial Sogemec Maquinas p/Escritório Ltda. 





p/ empresas je 5 vezes Packard, Texas) Rua Prudente de Moraes, 679 — tel: 34-2100 — Piracicaba — SP 
Instruments, 
BAS/C e outros, Sim, p/ produtos Financ. Banco/ Comicro Comércio e de Mic 
Cursos p/ empresas comprados na loja Financeira, leasing Matriz: Ai Presidente Taunay, 691 — tel: 224-5616 — Curt 


consorcio Frlvais: Rua Padre Carlos, 143, 1.º ana., si. 5 — tel. 33-7520 — Joinvilie'— 


SC/Edit. Sul Brasileiro. 6.“ and. st. 602 — tel: 23-0065 — Londrina — PR 









€ outros, cursos Sim, p/ equips. Digntus, Financ. proprio 


Compeei — Computadores, Equipamentos Eletronicos e 
SCLN 102, bi. A, si. 120 — tel: 226-9201 — Brasiia — DF 




















p/ empresas outras marcas são 4 meses, financ 
encaminhadas ao Banco/Financeira. 
fabricante ieasing 
- BASIC e outros. cursos Sim, p/ produtos Financ. proprio Compube! Computadores, Sistemas e Suprimentos Lida. 
Pp” empresas, curso gratis comprados na ioja ate 4 vezes, tinanc Tv. Quintino Bocasuva, 1779 — tel. 223-6319 — Belem — PA 


Banco/Financerra 
leasing; consorcio 


na compra de micro 





BASIC e outros, cursos Sim, p/ equips. 
p/ empresas, curso graus nacionais e estrangeiros | Financeira, leasing. 
na compra de micro consorcio 


Compucity — Comercio e “be pre qrcud Lida. 
Rua Tome de Séuta 682 — tel: 2264 — Beio Horizonte — MG 








"BASIC e outros, cursos Sim. p/ produtos Financ. Banco/ Compumidia — Produtos para Computação Ltda. 
pé empresas, curso gratis comprados na loja Financeira, leasing Av. Cristovao Colombo, 1370, cy. 301 — tel. 22-5288 e 22-4859 — Porto 
na compra de micra Alegre — RS 
So de BASIC. cursos Sim, p/ produtos Financ. proprio Compushow Computadores Ltda. 
p/ empresas comprados na loja até 4 meses, financ 'SCRN 708/7089, bi. E. j. 10 — tel: 273-2128 — Brasilia — DF 


Banco/Financeira, 
leasing; consorcio 






So de BASIC, cursos 
p/ empresas, curso grátis 
na compra de micro 


Sim, p/ produtos Financ. proprio; 

comprados na loja financ. Banco/ 

Financeira, leasing. 
consorcio 


Compusys Computadores e Sistemas Lida. 
Matriz: Av. 9 de julho, 826. s/1j. — tel: 635-1195 — Ribeirao Preto — SP 
Filial: Av. Cel Ferreira Leite, 1540, 1; 68, Ribeirão Shopping — tel: 634-3135 





Atari/Polyvox Compute Sistemas e Computadores Ltda. 
Odissey. | Rua Estados Unidos, 2141, Jardim Paulista — tel: 231-1173 e 231-1197 — 
Dynavision | São Paulo — SP 


BASIC e outros, cursos Sim. p/ produtos Financ. proprio; 
p/ empresas, curso grátis comprados na loja financ. Banco/ 
na compra de micro Financeira, leasing 
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| 


ENDEREÇOS 


Computer House 
Matriz: Av. Andrade Neves, 1254 — Campinas — SP 
Filial: Av. Juscelino Kubitschek, 28 — tel: 252-5855 e 852-7739 












» Financ. próprio Linha Dismac, Dactar:, eyes 
na loja até 4 vezes; Financ. | Hewlett Packard | Hobbygame; | Matriz: Av. Angélica, 1996 — tel: 231-3277 — São Paulo — sp 
Banco/Financerra, Oaissey Filiais: Av. dos Imares, 134 — tel: 531-4498 — São Paulo — SP/Praia de 






Botafogo. 288, |j. 114, Edit. Argentina — tel: 551-8942 — Rio de Janeiro 
— Ru/Av. Barão de lapura, 917 — tel: 32-4330 e31-8496 — Campinas — SP 
Lojas franqueadas em São Paulo: Pró Som, Tape Som e Chip Shop 


leasing. consorcio 









Computronic —Maser Materiais e Serviços de Proces. de Dados 


Financ. Banco/ e 
Estr. da Cacuia, 231, si. 312, Ilha do Governador — Rio de Janeiro — Ay 


Fu 





Sim, p/ equips. 
nacionais e estrangeiros 


€ Outros, cursos Não, mas tem convênio 
€/ firma de manutenção 
(Servcomp, Dataroad, MS) 


Consultoria e Sistemas Ltda. 
Centro Comercial Cruzeiro, 8/1). 35 — tel: 233-2310 e 567-3425 — Braswia 
— DF (Cx. Postal 11-1285) 


CPM — Central Panamericana de Micro Informatica Ltda. 
Pça. Clovis Bevilacqua, 121, 2.º and. — tel: 32-7752, 34-3057 e 32-9946 — 
São Paulo — SP 


Data Solution 
Av. Euzébio Matoso, 654 — tel: 813-3355 — São Paulo — SP 
Didados — Informática e Administraçao Ltda. 
Rua Minas Gerais, si. 602 — tel: 221-2004 — Divinopolis — MG 
elecomuni Informati 


Discol — Ti e ca Ltda. 
Rua 28 de Setembro, 746 — tel: 222-5122 e 224-1751 — Belem — PA 






€ outros; cursos Não, mas tem convenio Financ. 
Curso grátis c/ firma de manutenção Financeira, leasi 
Compra de micro (Servcompy consórcio 


m 

BASIC, cursos Não, mas encaminha Financ. próprio 

empresas ao fabricante 
Não 


Sim, p/ produtos 
comprados na loja 


ê ê 






Sim, p/ equips. nacionais e 
estrangeiros ate 3 vezes, financ. 
Banco/Financeira, 


Eldorado Computadores e Sistemas Ltda. 
Rua Visconde de Prraja, 351, js. 213/214 — tel: 227-0791 — Rio de 
Janeiro + Ay 









Ensicom Engenharia de Sistemas 
Rua Marques do Herval, 409, 'tand., si. 15 


Entec 
Rua Lauro Muller, 700 — Itajai — SC 


Erkia Cursos, Kits, Laboratorios de Eletronica 
Matriz: Rua Dr. Veiga Filho, 522 — tel. 67-7793 — Higie! 
Filial: Av. Pacaembu, 1261 — tel: 826-1499, 67-6339 e 826-4464 


Exatron Informática 
— tel: 542-1917 — São Paulo — SP 










€ Industria Ltda. 


Sim, p/ produtos Fotoleo Comércio 
Av. São João, 25, Centro — São Paulo — SP 


comprados na loja 









Fotoptica Computadores e Calculadoras 
Matriz: Al. Juruá, 434 — tel: 421-5211 — Barueri (Alphaville) — SP (Centro 
Administrativo) 
Filial; Av. Rebouças, 2315 


Frisson Equipamentos de Som Ltda. 
Rua Bernardino de Campos, 345 — tel: 412-3428 e 449-6212 — Santo 
André — SP 














Informática Assessoria e Processamento de Dados Ltda. 





Não, mas tem convênio 


p/ empresas e A Av. Antonio Olimpio de Morais, 290/308 — Divinópolis — MG 
(Distec] 
BASIC e outros; cursos Sim, p/ produtos Informatique — Onix Comércio e Serviços de Equip. Eletrônicos Lida. 
lo jp resina comprados na loja Av. Independência, 383. |. 114/115 — tel: 21-4189 — Porto Alegre — RS 
compra de micro 
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3 Bla EEN E pe E ço 
Especializada CP-200, CP-300, CP-500; cassete. | Fitas cassete, disquetes, 

em micros equips. Unitron, Microdigital modems; unid. disquete, papel/fita p/ impressora; 

monitores. tv comum, isquetes/ 

IPANEMA MICRO TK82-C, TK83, TK85; DGT-100; 
(RJ) CP-500; AP Il; Microengenho 
“Coal 
em micros 












SOFTWARE 









DESENVOLVE? 





Sim, nacional 
e estrangeiro 





Sim, qualquer tipo 

























Nacionais e | Sim, só nacional 
(Microsoft. 
Microidéia) 


Sim, qualquer tipo 








; tv comum: joystick; | papel p/ impressora; cxs. 
interfaces: expansão p/ tv, 
sintetizador de voz 
(Digitus) 


Impressoras; grav. cassete; 
modems; unid. disquete; | papei/fita p/ impressora; 
monitores, ty comum, produtos de limpeza, 

joystick; interfaces exs. p/ disquetes/fitas; 
arquivos;móveis 


Fitas cassete; disquetes; 
papel/fita p/ impressora; 
produtos de limpeza, 
cxs. p/ disquetes/fitas, 

arquivos 
























DGT-100, DGT-101; TK83, TKBS; 


Nacionais e | Sim, só nacional 
APPLY 300; equips. Schumec 


estrangeiros | (Nasajon, Digitus. 
Microsoft) 


Sim, qualquer tipo 




































Impressoras; grav. cassete, 
modems, unid. disquete; 
monitores; tv comum; 
joystick; plotadoras; 
interfaces, teclados 


Sim, nacional e 
nacionais | estrangeiro (LHM, 
Sistron, Monk) 















Impressoras; grav. cassete, 
modems; unid. disquete; 
monitores; joystick 













Sim, só nacional 
(Potencial 
Software) 


Fitas cassete; disquetes Sim, qualquer tpo 


































Impressoras. grav. cassete, 
unid. disquete. monitores, 
interfaces; teclados, 
matriz: tv comum; 
filial: joystick; placas 
expansão 16 K, 48 K e 
128 K; ventiladores 
p/ fonte de CPU 


TK82-C, TKBS; CP-200. CP-300, | impressoras; grav. cassete, | Fitas cassete; disquetes. 
CP-500, S-600, S-700; AP 1 unid. disquete. joystick papel/fita p, Name areas 
/ disquetes/fitas 


Especializada TK82-C, TKB3, TKBS5; CP-200, Sim, só nacional | Sim, qualquer tipo 
paca em micros CP-300, CP-500, S-600, modems. unid.  Nomereend papel/fita p/ impressora (Monk, Microarte, 
S-700; DGT-100, DGT-101; monitores. Joystick; Microsoft, Kristian, 
Microengenho; equips. Scopus interfaces Prológica, Digitus, 
EAG-Engenharia 


Grav. cassete; unid. Sim, só nacional 
disquete, monitores. (Digitus, 
Joystick, interfaces Microdigital) 


Fitas cassete, disquetes, 
fitas p/ impressora; cxs. 
p/ disquetes/fitas, 
móveis; matriz: arquivos; 
filial: papel p/ impressora 


Nacionais e | Sim, só nacional 


Sim, qualquer tipo 
(Fabric. própria) 


Naja; Maxi; AP Il; matriz: 
Tas: filial: DGT-100 














Sim, vinculado à 
compra de equip. 


































Sim. qualquer tipo 










TK82-C, TKBS; CP-200, E Impressoras; grav. 
CP-500, NE-Z8000; MT 300; 
DGT-100; Maxxi; 

PC 1211 RP, PC 121 R 


cassete; | Fitas cassete; disquetes; 
modems; unid. disquete, papei/fita p/ impressora; 
monitores; tv comum; Cxs. p/ disquetes/fitas 
oystick; plotadoras. 


Software/system | TKB2-C, TK85; CP-200, CP-500, | Impressoras; grav. cassete; 
house S-700; D-8000, Alfa 3003, modems; unid. disquete, 
Alfa 2064; Maxxi, POLY 201 DP;| monitores; tv comum; 
: CD-6809 ; ? 
MICRO HOUSE Impressoras; grav. cassete. 
(R9) em respermmeeo 
MICROINFORMATICA| Especializada 
(R$) em micros 





, Qualquer tipo 


im, qualquer tipo 


Sim, qualquer tipo 


Sim, só nacional im, qualquer tipo 
(Digidata) 
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Fitas cassete, disquetes; 

papei/fita p/ impressora: 

xs. p/ disquetes/fitas; 
móveis 







(Metaidata, Monk) 









Sim, só nacional 
(Microidéia, 
Monk, Microsoft) 





unid. disquete; monitores, 










cxs. p/ disquetes/fitas 


Disquetes; papel/fita 
P/ impressora 









OUTROS PRODUTOS 





ASSISTENCIA 
CURSOS 
BASIC e outros. cursos ) Financ. Banco/ Informax 
p' empresas Financeira, leasing. Av. Brigadeiro Faria Lima, 1857 8614-0682 — Sao Pauio — SP 
So de BASIC Não, mas encaminha e ema ser bg ções? 
ao fabricante Rua Visconde de Pirajá, 540, |j. 310 — tel 1516 e 274-5594 — Rio ge 
Janeiro — RJ 
BASIC e outros. cursos Não, mas encaminha Ê Kalhau Engenharia Ltda. 
p/ empresas ao fabricante Pça. Tiradentes, 10, si. 402, Centro — tel. 252-2752 — Rio de Janeiro — Ay 
Nao Sim, p/ produtos Financ. proprio Kemitron Ltda. 
comprados na loja até 5 meses, financ. Av. Contorno, 6048, Savassi — tel: 225-0644 — Beio Horizonte — MG 
Banco/Financeira, 
ieasing 
BASIC e outros, cursos Sim. p/ produtos Financ. proprio. ssey Komputer Video Hauss — Com. de Microcomputadores e 
p' empresas comprados na loja financ. Banco/ Atari/Polyvox Eletrônicos Ltda. 
Financeira Av. Higienópolis. 925. 1j. 5. Shopping Via Per Tutti — tel, 23-5061 — 
Mairz: BASIC e outros. Sim, p/ produtos Financ. próprio LHM Comércio e Ltda. 
fuial: so de BASIC, comprados na loja até 3 meses, financ. Matriz: Av. Franklin Roosevelt, 23, gr. 1203/4/5 — tel. 220-7979 — Rio ge 
cursos p/ empresas, Banco/Financeira, 
Curso gratis na leasing k — tel. 26-6465 — Porto 
compra de micro 





So ge BASIC, cursos 


: Financ. Banco/ Lidados Serviços e Comércio de Computadores Lida. 
) onsorcio] Rua Sete de Setembro, 876 — tel: 41-3513 — Limeira — SP 
ma compra de micro 


p* empresas. curso gratis 
BASK e outros. cursos Sim. p/ equips. nacionais Financ. próprio Logica — Computadores e Sistemas Lida. 
p“ empresas, curso gratis e estrangeiros até 6 meses, leasing Ai. Antunes, 01, |. 02, Barra Avenida — tel: 235-4184 — Saivador — BA 
So de BASIC Sim, p/ equips. nacionais Financ. proprio Atary/Poiyvox Maestro Equipamentos de Som Ltda. 
e estrangeiros ate 6 meses, financ Matriz: Av. Pasteur, 184, |). J — tel; 295-8194 e 542-3849 — Rio de Janeiro 
Banco/Financerra, — RJ 
leasing Fiial: Tv. Ouvidor, 37, 2.º and. — tel: 221-5040 — Rio de Janeiro — Fu 


ma compra de micro 
Memocards Materiais Didaticos Ltda. 
Rua Amador Bueno, 855 — Ribeirão Preto — SP 
Metaidata e Processamento Ltda. 
Matriz: Rua Alvaro Chaves, 154, cj. 302 — tel: 22-3151 — Porto Alegre — RS 
Fulial: Rua Quintino Bocaiuva, 27, |). 14 — tel: 22-3151 — Porto Aregre — HS 
Micro House Comércio e Representações Ltda. 
Rua Visconde de Pirajá, 547, si. 307, Ipanema — tel. 294-6246 — Rio ge 
Janeiro — RJ 
Microinformatica Computadores Pessoais Ltda. 
aco Lacan Av. Ataulto de Paiva, 566, |j. 211 — tel: 239-2798 — Rio de Janeiro — Ay 


Financ. Banco/ Micro Maxi Computadores e Sistemas Ltda. 
Financeira, leasing Matriz: Pça. Oliveira Botelho, 154 — tel: 54-1135 e 54-1522 — Resende — 
RJ 
Filial: Rua Cel Rocha Santos, 46 — tel: 54-1644 e 54-2031 — Resende — 



















BASIC e outros; cursos | Sim, p/ equips. nacionais Financ. próprio, 
pé empresas, curso gratis e estrangeiros financ. Banco/ 
ma compra de micro Financerra, leasing. 
consórcio 















BASIC e outros, cursos 


p“ empresas, curso grátis 
ma compra de micro 


Não, mas tem convenio 
c/ firma de manutenção 
(Disco) 


Financ. próprio 
até 5 vezes, financ 
Banco/Financerra; 
leasing 

























Não, mas tem convénio 
c/ firma de manutenção 
(Sistema) 


Financ. próprio 
ate 3 meses, tinanc 


BASIC e outros. cursos 
p/ empresas 
Banco/Finance: 








So de BASIC. cursos 
p/ empresas 


Sim, p/ produtos 
comprados na loja 


BASIC e outros. cursos 
p/ empresas; curso grái 









na compra de micro 
BASIC e outros, cursos Não, mas encaminha Financ. próprio Micron — Seno Comércio Representação Administração Ltda. 
p/ empresas, curso gratis ao fabricante até 4 meses; financ. Av. Alberto Andaló, 3131, 1.º and,, si. 2 — tel: 32-0600 e 32-5887 — Sao 


Banco/Financeira; 
leasing 


Financ. Banco/ 
Financeira, leasing 


na compra de micro José do Rio Preto — SP 





BASIC e outros; cursos 
p/ empresas 


Não, mas tem convênio 
c/ firma de manutenção 
(Mundial — Rádio 
Elétrica Ltda.) 


Micromega Computadores e Sistemas Ltda. 
ia Jo do Castilhos: 441,1.º and. — tel: 93-4721 — Novo Hamburgo — 


Micronews Comércio e Serviços Lida. 
Rua da Assembléia, 10, 33.º and., si. 3317, Edif. Centro Candido Mendes 
— tel: 252-9420 — Rio de Janeiro — RJ 


So de BASIC, curso gratis Não, mas encaminha 
na compra de micro ao fabricante 


HP-41CV, HP-S7A| Microshow Comércio de Computadores e Serviços Ltda. 

Matriz: Rua Figueira de Melo, 425 1.º and., São Cristóvão 
— tel, 264-5757 — Rio de Janeiro — RJ 

Filial: Rua Frolick, 31, 3.º and., São Cristóvão — tel: 234-4751 — Rio de 

Janeiro — RJ/Av. Copacabana, |j. Be C — tel: 256-4181 — Rio de Janeiro 

ratoeira tel: 228-8183 — Rio de” 

Janeiro — RJ 


BASIC e outros; cursos 
p/ empresas, cursos grátis 
na compra de micro 
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mm SOMARE | 
dos [ams | omnes | 





LOJA ATIVIDADES sa E PERIFERICOS SUPRIMENTOS 


Maxxi; TKB3, TK8S; DGT-100; Fitas cassete; disquetes; | Nacionais e) Sim, só nacional | Sim, qualquer tipo 
(RS) JR Sysdata, equips. Proligios |" fera papei/fita p/ impressora; | estrangeiros. ) 
PC 1211 cxs. p/ disquetes/fitas a: 
Especializada AP Il; Maxx, Microengenho; 3 k Fitas cassete, disquetes, Sim, qualquer tipo 
(RS) micros D-8000, D-8001; JR Sysdata; papel/fita p/ impressora; (Microsoft, 
Dactron; Apple Il Plus;equips. : E produtos de limpeza, Computerworid, 
Digitus, Microdigital teclados exs. p/ disquetes/fitas Monk, Potencial) 


Sim, só nacional | Sim, qualquer tipo 
(Kitsis) 


CP-200, CP-300, CP-500; 
TKB3, TKBS 


Sim, só nacional 
(Monk, Micron, 
Microsoft, 
fabric. própria) 


lados k 
Software/s) Naja; TKB2-C. TKBS Impressoras, grav. cassete. Si na 
house unid. disquete; monitores. 


e : Pee fis Só p= ea Re 
( ) 


Joystick; plotadoras, papel/fita p/ impressora; 
Software/system DGT-100; BR-1000 Sim, nacional e | Sim, qualquer tipo 
house estrangeiro 
Microsoft, 
romenko) 


interfaces produtos de limpeza 
ie das io só nacional 
Micro s) 
TK83, TK85, CP-200, CP-300, | Impressoras, grav. cassete, | Fitas cassete; disquetes” Sim, só nacional 
ramentos CP: fed mao sr UNA disquete; tv comum papel/fita n/ impressora (Monk, Suporte) 
121 A 


Equips. Digitus, Microdigital | Impressoras; grav. cassete; | Fitas cassete, disquetes; | Nacion: Sim, qualquer tipo 
unid. disquete; monitores; | papel p/ impressora, cxs. | estrangei 
tv comum, joystick, P/ disquetes/fitas, móveis 
interfaces. teclados 
Software/system| CP-200, CP-300, CP-500; Maxi; | Impressoras; grav. cassete, | Fitas cassete, disquetes Sim, só nacional | Sim, qualquer tipo 
TKB2-C, TKBS; PC 1211 RP unid. disquete, monitores (Monk, Codesis, 
fabric. própria) 


Especializada Impressoras, grav. cassete, | Fitas cassete, disquetes, Sim, só nacional | Sim, qualquer tipo 
em micros unid. disquete. monitores, | papel/fita p/ impressora, (Microsoft, Micro's, 
CxS. p/ disquetes/ Micron) 

fitas; arquivos; móveis 










Sim, qualquer tipo 
papel/fita p/ impressoras; | estrangeiros 
cxs. p/ disquetes; fitas 





pi k ) : | Fitas cassete, disquetes; | Nacionais e 





tipo 












REGIS S' 
DO 
























IPUTI 

















TK82-C, TKB3, TKBS, CP-200, ; 
CP-300, CP-500, S-700, DGT-100, | unid. disquete, monitores; 
DGT-101, JA Sysdata tv comum; joystick; 
[plotadoras; interíaces, teciados 


Fitas cassete, disquetes; | Nacionais e | Sim, só nacional 
papel/fita p/ impressora, (Monk) 
xs. p/ disquetes/ 










Sim, qualquer tipo 
(CE) 





E 8 
3 BE 
8 

E 


















Especializada 
em micros 


Equips. Brascom, Digitus pressoras, unid. disquete. Disquetes, papel/fita 
monitores P/ impressora, cxs. p/ 
tas, 





Sim, vinculado a 
compra de equip. 


Sim, só nacional 
(Brascom, Digitus) 

















Especializada 
em micros 


TKB2-C, TKBS. CP-200, CP-300, limpressoras, unid. disquete, | Fitas cassete; disquetes, Sim, só nacional | Sim, qualquer tipo 
CP-500; DGT-100; AP 14 monitores, joystick. papel/fita p/ impressora. (Microsoft, Binah, 
CP-500, Maxx, POLY 105 DP, interfaces, teclados produtos de limpeza, Codesis, Monk. 
POLY 201 DP, POLY 301 WP, Cxs. p/ disquetes/titas. Nasajon, Ramo. 
JR Sysdata 4 q fabric. própria) 


TKB3, TK85; CP-200, CP-300, | impressoras. É 4 Sim, vinculado a, 
EA DGT-100, AP 1. 3 k estrangeiros compra de equip. 


Sim, qualquer tipo 


pressoras; unid. disquete; 


Sim, qualquer tipo 
monitores, interfaces 



















Impressoras; grav. cassete: 
unid. disquete, monitores, 
Joystick; intertaces 


Nacionais e | Sim, só nacional 
estrangeiros | (Polymax, Digitus, 
Prológica. 
fabric. própria) 


Disquetes. papel/ 
p/ impressora 


Sim, qualquer tipo 










D-8002 
- D-8100. Maxx. CP-200. CP-300, 
CP-500. S-700 




















Especializada | TK85. DGT-100; Microengenho [impressoras; grav. cassete; 
em micros unid. disquete 
monitores. joystick 


Sim, só nacional 
(Work) 


Sim, qualquer tipo 






disquetes - 
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CURSOS 


BASIC e outros, cursos 
p/ empresas, curso gratis 
na compra de micro 


BASIC e outros. cursos 
p/ empresas, curso gratis 
na compra de micro 


BASIC e outros, cursos 
p/ empresas, curso gratis 
na compra de micro 


BASIC e outros, cursos 
p/ empresas 


BASIC e outros, cursos 
p/ empresas, curso gratis 
na compra de micro 


BASIC e outros, cursos 


p/ empresas, curso gratis 
na compra de micro 


So de BASIC; cursos 
p/ empresas 


So de BASIC 


BASIC e outros. cursos 
p/ empresas, curso gratis 
na compra de micro 


Nao 


BASIC e outros 


BASIC e outros, cursos 
p/ empresas, curso graus 
na compra de micro 


Curso gratis na 
compra de micro 


So ge BASIC, cursos 
p/ empresas. curso gras 
na compra de micro 


So de BASIC, cursos 
p/ empresas 


BASIC e outros, cursos 
p/ empresas. curso gratis 
na compra de micro 


Nao 


So de BASIC; cursos 
p/ empresas 


BASIC e outros; 
cursos p/ empresas 


ASSISTENCIA 
TECNICA 


Não, mas encaminha ao 
fabricante; tem convenio 
c/ tirma de manutenção 


Nao, mas tem convenio c/ 
tirma de manutenção 


Nao, mas encaminha 
ao fabricante 


Sim, p/ equips. 
nacionais e estrangeiros 





Sim, p/ qualquer 
equip. nacional 


Sim, p/ equips. 
nacionais e estrangeiros 


Sim, p/ proqutos 
comprados na toja 


Sim. p/ equips. Proiogica. 
Dismac, Polymax 


Nao, mas encaminha 
ao tabricante 


Sim, p/ progutos 
comprados na toja 


Sim, p/ equips. 
Digitus, Prologica. 
Microdigitai, Sysdata 


Sim. p/ progutos 
comprados na ioja 


Sum. p/ equips 
Porymax, CP-500 


Sim. p/ equips. 
Prologica 


Sim, p/ equips. 
Prologica. Spectrum, 
Kemitron, Digitus 


Nao, mas encaminha 
ao tabricante 


Sim, p/ equips. 
Digitus, Osborne, Dismac 


Não, mas tem convenio 
C/ tirma de manutenção 
(Tecnoccop) 
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Financ. Banco/ 
Financeira; leasing; 
consórcio 


Financ. próprio 
ate 4 meses, tinanc. 
Banco/Financerra, 
leasing 


Financ. próprio 
ate 3 meses. financ. 
Banco/Financeira 
leasing 


Financ. proprio 
ate 4 meses, tinanc. 
Banco/Financeira, 
leasing; consorcio 


Financ. próprio 
ate 3 meses 


Financ. próprio 
ate 3 meses 


Financ. Banco/ 
Financeira. leasing 


Financ. proprio 
ate 6 meses, tinanc 
Banco/Financerra 


Financ. proprio 
ate 15 meses. tinanc 
Banco/Financerra. 
reasing 


Financ, Banco/ 
Financera 


Financ. proprio 
ate 15 meses. tinanc. 
Banco/Financeira, 
reasing 


Financ. proprio 
ate 3 meses. financ 
Banco/Financerra, 
easing 


Financ. proprio 
ate 3 meses, tinanc 
Banco/Financeira 
ieasing 


Financ. proprio 
ate 3 vezes. tinanc. 
Banco/Financera, 

ieasing 


Financ. Banco/ 
Financeira, ieasing 


Financ. proprio 
ate 2 meses, tinanc 
Banco/Financerra, 
leasing 


Financ. proprio 
ate 6 meses; tinanc 
Banco/Financerra 


Financ. proprio, 
tinanc. Banco/ 
Financeira; leasing 


Financ. Banco/ 
Financeira; leasing; 
consórcio 


OUTROS PRODUTOS 


| carros. | vocons 


Atar/Polyvox | 


Oaissey 


HP-10C, HP-116, 
HP-12C, HP-15C. 
HP-41CV, TH-59 


Dynavision 


Linha Sharp, 
Dismac 


Linha Dismac, 
Sharp, Hewiett 
Packara 


Dynavision 


Atari/Polyvox; 


Atan/Ponyvox; 


Microsis Computadores e Sistemas Ltda. 
Matriz: Rua Mostardeirro, 291, cj. 404 — tel 22-9782 — Porto Alegre — RS 
Filial: Av. Joao Walhg. 1800, Shopping Center Iguatemi, JW-17 — tel 
34-0660 — Porto Alegre — AS 


Microtec Computadores e Sistemas Ltda. 
Rua Gal. Lima é Siva, 389 — Porto Alegre — RS 


Mikro Iintormatica Ltda. 
Av. Afonso Pena, 952. si, 627 — Belo Horizonte — MG 


Minas Digital Ltda. 
coupé Rua Tupinambas, 1045, cj. 602 — tel: 201-7555 — Belo Horizonte 
— M 


Funai; Rua Tome ae Souza, 860, 1 B, Savassi — Belo Horizonte — MG 


Omnicom — Engenharia e Processamento de Dados Ltda. 
Av. Contorno. 842, 5. anda. — ter. 222-4011, r. 262 — Beio Horizonte — MG 


Prodados — Informática, Ensino Técnico e Artes Ltda. 

Matriz: W3 Sut, qd. 506, bi. C — tel: 244-3505 — Brasilia — DF 

Filas: W3 Norte, qa. 504 — tel. 226-2374 — Brasma — DF/Lago Sui, qo. 7. 
bi. E — ter 2468-5030 — Brasa — DF/ Taguatinga. Edit. Paranoa Cerer 
— tel: 561-3307 — Brasilia — DF/Av. Anhanguera, Eart. Palacio Comercio 
— te. 225-0022 — Gorania — Goias 





Prodamic — Processamento de Dados e Consultoria Lida. 
Matriz: Av. Cristovao Colombo, 519, si. 306, Savassi — tel, 225-2469 — 
Belo Horizonte — MG 
Funai: Edit. Via Rica, bi. D 301, Barrro Jardim Camburi — Vitoria — ES 


Cine Foto Som Lida. 
Pça. Joao Pinheiro. 15, Eart. Top Center, ij. 16 — tel: 721-4593 — Muriae 
IG 


Renau; abrica de Tecidos Carlos Renaux S.A. — Lojas 
Av. C. Carios Renaux, 164 — ter. 55-0468 — Brusque — SC 


Rio Micro Computadores Lida. 
Rua Visconde de Piraja. 330. 1) 314. ipanema — tel: 521-4888 — Rio de 
Janero— Ay 


Ritz Cine Foto Ltda. 
Rua Fre: Caneca. 7 — ter 35-1792 — Santos — SP 


CEDM Lida. 


Shop-Computer 
Av. Sao Pauio, 716 — ter. 23-9674 — Londrina — Parana 





Siscomp — Sistemas & Lida. 
Rua Tiburcio Cavalcante, 2% — ter 244-4691 — Fortajeza — CE/Setemaq 
rcongagay Rua 25 de Março, 293 — tel: 231-3422 — Fortaleza — CE 


Sisdata — Comercio e Rep. de Sistemas e Computadores Liga. 
Rua Bouievara America. 12. J. Baiano — ter, 242-9394 e 243-2654 — Sar- 
vador — BA 


Sistematika Computadores & Sistemas 
Rua Anarage Neves, 2416 — Pelotas — AS 


Souza s Computer Center 
Rua Maria Carolina. 205. 1j 05. Boa Viagem — tel: 325-4979 — Recile — PE 


— T 


String Computer Lida. 
Rua Aimirante Cochrane, 210, Tijuca — 


Computadores 
Ho de Janeiro — RJ 


Suprimento Materiais para Computadores Lida. 
Rua Visconde de Piraja, 550, 1. 202 — tel: 274-8845 — Rio de Janeiro — Ru 


TESBI — Engenharia de Telecomunicações Lida. 
Rua Guilhermina, 638, Encantado — tel: 249-3166 — Rio de Janeiro — RJ 


Work Shop — Assessoria e Desenvolvimento de Sistemas Ltda. 
Rua Martinezia, 34, cj. 02 — tel: 234-0080 — Uberiandia — MG E 
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RR MP o indústria detentora da mais avai 
— microsã grandes computadores, bem como líder nacior 
E agora até você... DISKETTES BRASILEIROS. 

Datadisk 8” e 5 1/4”, produzidos na Zona Franca de 


são compáti 
mudos Ss 

A partir 
adquirir dis 
no Brasil, at 
Nacional de 


Revendedor 














DP ARCICIER ES MinDbs TRIA DE FITAS E IMPRESSORAS LTDA. 


Adm. / Vendas: Rua Lord Cockrane, 775 — CEP 04213 PABX (011) 914.2266 Telex (011) 34224 
Filial RJ: Rua Senador Dantas, 75 22º andar s/2.202 Fones: (021) 220.4181 / 220.7483 
Filial BH: Rua Selênio, 264 s/202 Fone:(031) 334-4768 


cada tecnologia na fabricação de fitas i impressoras para 
al na comercialização de suprimentos para C.P.D.(s), traz 


fanaus, com a mais avançada tecnologia, estes diskettes 
eis a todos os tipos de Drives existentes no mercado, foram 
je agora você poderá. Wtttns com sem emo 
gd 

uz 
és dia Reto 
Representantes e 
s. 






Dara DISK 


! 





DBATADESK” 


ED GRACE ANE SS 


Diskette 
Ro a my mas — PRESIDENTE PRUDENTE/SP 227999 — MOGI DAS CRUZES/SP 460.2836 - RIBEIRÃO PRETO/SP 6343135 
DOS CAMPOSRP 225282 - S. VICENTE/SP 6714424 — [SC 0482 132 — BLUMENAUISC 222142 - UBERLAN 
ar 200i qst= URTALIZA |/CE 231 3163 - ARACAJU/SE 2224146 — BRASÍLIA/DF 223786! - SALVADOR/BA emfiçor ora légua z 
JUIZ DE FORA/ MG 213.1733 — VITÓRIA/ES 223.1633 — PORTO ALEGRE/RS 331556 — prnteidas ção 404 — A gra CURITIBA/PR 
223 4. 


2531272 — BELEM/PARÁ 227.1053 — JOÃO PESSOA/PB 221.4965 — RECIFE/PE 228 3224 - MACEIO/AL 


Em breve nas lojas 





Novo TK 


preço dele você só compra a | 


Até ipa você cine só duas 
alternativas: ou pagava caro um 
computador de alta performance 
ou se conformava com um 
equipamento de preço e 
possibilidades limitadas. 

Agora a Microdigital lança o 
TK 2000 color, um micro de alta 
performance pela metade do preço 
do seu concorrente mais próximo. 


Veja: ele tem 64 kbytes de memória. 
RAM e 16 kbytes de memória 
ROM, trabalha com alta resolução 
gráfica à cores podendo ser ligado 
ao seu TV colorido ou P&B, diskette 
de 5 1/4”, impressora (ele já vem 
com interface), gravador, cartuchos 
gravados, joystick. 

E o que é muito importante: 
tem excelentes software disponível, 





000 color 


netade do concorrente mais próximo. 


inclusive planilha eletrônica, editor 
de textos, controle de estoques, 
jogos animados em cores e muito 
mais. Conheça o novo TK 2000 
color nas lojas especializadas e 
magazines de todo o país. 

E leve um micro avançado, de 
alta performance, praticamente pela 
metade do preço. 

Se na sua cidade você não 


encontrar o computador TK 2000, 
ligue gratuitamente para (011) - 
800 255.8583 e teremos o prazer 
de informar-lhe sobre o revendedor 
Microdigital mais próximo. 


Microdigital Eletrônica Ltda. 
Caixa Postal - 54121 - CEP 01000 - São Paulo - S.P. 


À venda nas boas casas do ramo, lojas especializadas de 
fotovídeo-som e grandes magazines. 





Deixe o teclado de seu micro em paz e divirta-se com os jogos de vídeo 
através deste dispositivo simples, de fácil montagem e custo reduzido 








Apple paddle: 
faça você mesmo 


Evandro Mascarenhas de Oliveira 





empre que precisamos movimentar figuras em jogos ele- 
- trônicos somos obrigados a atuar repetitivamente sobre 

o teclado de nosso micro — o que pode levar a um des- 
gaste prematuro e desnecessário das teclas. Daí, e também por 
outras razões, a conveniência do uso de controladores de jogos, 
como o paddle ou joystick. 


Pois bem. Neste artigo me proponho a ensinar como você 
pode construir um paddle para o seu equipamento compatível 
com o Apple, o qual possui, em sua placa de montagem, um 
conector para jogos representado por um soquete de 16 pinos 
(figura 1), que apresentam as seguintes finalidades: 
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a) Pinos 1 e 8 — alimentação: Vcc (+5V) em 1 e Terra (OV) 
em 8. 


b) Pino S — strobe: normalmente saída em alto nível, vai para 
nível baixo durante 0,5 microssegundos ao se referenciar o 
endereço C04F (LDA $ C04F ou PEEK (—16320)). 


c) Pinos 12, 13,14 e 15 — designados por AN3, AN2, ANI e 
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COSB | -16293 


14 | COSA | -16294 
13 | cosc | -16292 





cosD | -16291 
cosr | -16289 





Endereços associados às saídas ANN para tensões de 5 a 


Figura 2 — 
O Volts. 








Relé de 6V acoplado à saída ANO, através de transistor 
NPN e resistor, controlando uma carga por meio de pro- 
grama no computador. 


Figura 3 — 











ANO e denominados Annunciators, podem assumir as tensões 
SV ou O0V (conforme a figura 2), carregando-se o acumulador 
com zero (LDA * 0) e transferindo-o para o endereço indica- 
do (STA end), ou então através de POKE end, 0. São utiliza- 
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dos para controlar as cargas externas a partir de programa no 
computador (figura 3). 

d) Pinos 2, 3 e 4 — designados por PBO, PB1 e PB2 e denomi- 
nados push buttons, sao entradas TTL associadas aos endere- 





ENDEREÇO 
had a 
co64 | -16284 
co65 | -16283 
c066 | -16282 él sele 

c0o67 | -16281 


Figura 6 - Conexões básicas dos push buttons e das entradas analó- 
gicas GC no controlador de jogos. 
































ços da figura 4. No micro, as duas primeiras (pinos 2 e 3) são 
as usadas nos dois controladores (paddle O e paddle 1). O p s 
Y não corresponderá à posição do cursor. 


e) Pinos 6, 7, 10 e 11 — designados por GCO, GC2, GCI e E era 
GC3, são as entradas analógicas dos controladores, associadas E crop erp para constatar odesempenha vb cam 
aos endereços da figura S e ligadas ao integrado 558 (tempori- 
zador quádruplo) em configuração monoestável. Quando a 
rotina interna da ROM com início no endereço FBIE é chama- 
da, o endereço C070 é referenciado, permitindo o disparo dos 
quatro monoestáveis simultaneamente, por um período que 
depende da posição do cursor do potenciômetro ligado à en- 
trada (figura 6), retornando no registrador Y um valor entre O 
e 255 ($00 e $FF), proporcional à tensão aplicada no pino 


zadores volte a zero, pois, caso contrário, o valor retornado em 





Variando a posição do cursor do paddle 0, serão exibidos 
no vídeo, nas três primeiras colunas, os números entre O e 255. 


trolado. : 
controlad y Substituindo a linha 20 por: 
Devido ao disparo dos quatro monoestáveis, deve-se intro- 
duzir sempre um retardo entre as chamadas da rotina FRIE pa- 20 POXE 1576, X: HTAB 10: VTAB 13: PRINT" 


ra cada controlador, a fim de permitir que a saída dos tempori- 25 HTAB 10 : VTAB 13: PRINT X 





HP-85B, um passo adiante! Em um único 
gabinete você encontra teclado, tela alfanu- 
mérica e gráfica, unidade de fita magnética 
digital, impressora com capacidade gráfica, 
sistema operacional com 48 K, e um Disco 
Eletrônico que, expandido através de módu- 
lo de memória, amplia o sistema até 192 


Kbytes. ams E EEN 
O novo HP. anpasais as Kbytes de memó- 
> ai ag 











com disco eletrônico 






ria, dos quais º bytes (RAM) diretamente 
acessados pelo usuário. Os outros 32 Kbytes, 
também RAM, compõem uma memória de- 
nominada Disco Eletrônico que simula um —— 
acionador de "os, porém de altíssima ve- 
locidade. Permite armazenar dados, tempo- 
rariamente, e depois recuperá-los com velo- 
cidade até 150 vezes maior do que na fita 
magnética digital, e até 15 vezes maior do 
que numa unidade de discos flexíveis. 








Computador pessoal 
COMPLETO 
PORTATIL 
CONFIÁVEL 





Conheça hoje o HP-85B, o computador 
completo, portátil e confiável com Disco Ele- 
trônico que oferece mais velocid e até HEWLETT-PACKARD DO BRASIL 

, 192 Kbytes! Garantia de 3 meses. Assistência pps oo 
Ha um novo Técnica. RODOVIA CASTELO BRANCO, KM 21,5 - BARUERI 
SÃO PAULO - CEP 06400 - FONE: (011421 131 
computador pessoal O Pude 
PACKARD 
no mercado! (pé <cscatrisva 


Remeta este cupom para receber literatura 


pP ) ! 7 | 
H = 85 B Alta velocidade técnica do novo computador HP-85B 
com até 192 Kbytes! ! promo UU 


l 
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. As MR sá sigo 
com disco eletrônico 
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APPLE PADDLE: FAÇA VOCÊ MESMO 


a tela mostrará todos os caracteres de texto utilizados pelo sis- 
tema em seus modos inverso, flash e normal, acompanhados de 
seus respectivos códigos decimais. 

Para usar a rotina da ROM com início em FBIE, o valor nu- 
mérico do paddle (O ou 1) será carregado no registrador X, o 

ual referenciará o endereço C064,X (C064 para o paddle O e 
5 para o paddle 1); 0 potenciômetro retornará, no registra- 
dor Y, os valores entre O e 255. 

Quando o interruptor dos pinos PB (2, 3 ou 4) é fechado, o 
bit 7 dos endereços 1, C062 ou C063 vai para um, indican- 
do um número negativo; testando-se o valor, positivo ou nega- 
tivo, podem-se controlar as instruções do programa que serão 
executadas ou não. 

O programa a seguir desloca, após comprimirmos o botão 
do paddle O, uma unidade gráfica (retângulo vermelho) na tela: 
girando o eixo do potenciômetro da esquerda para a direita, o 

retângulo se deslocará nas linhas 0, 8, 16, 1,9e 17, retornan- 

do, em sentido contrário, ao girarmos da direita para a esquer- 
da. Experimente-o: 


20 58 PC JSR  $FC58 — HOME 


0303- 20 40 FB  JSR $EB4O — 6R 
0306- AD 61 co LDA  $C061 AGUARDA BOTÃO PRO SER COMPRIMIDO 
0309- 10 FB BPL  $0306 PARA IR À 30B 

030B- A9 11 LDA  *$11 

030D- 85 30 E são | cm vma 

030F-  A2 00 LDX 4800 [ CARREGA PADOLE(O) EM X, 

0311- 20 JE FB  JSR S$FBIE À EMY OS VALORES ENIRE O E 255 
0314- 9 00 LDA +$00 

G3l6- 200078 SR grão À rom mexo 

0319- A? 32 LDA *$3 

031B- 20 AB FC JSR SECAS | reramo 

O31E-  A9 00 LDA 4500 

0320- 85 30 A 430 | CR PRETA 


*500 
$r800 
$030B 


1 apaGa à UNIDADE GRÁFICA 
4c os 03 IMP 





CIRCUITO ELETRÔNICO 


A configuração básica do controlador está na figura 6: cada 
paddle (O ou 1) possui um potenciômetro RP com o pino cen- 
tral (cursor) ligado à entrada analógica GC; os outros dois pi- 
nos são ligados em Vcc e Terra. A entrada PB é mantida em 
nível baixo pelo resistor R, indo a nível alto quando se fecha a 
chave CH, ligada ao Vcc. 





Circuito para os controladores de jogos PDL 0 e PDL 1. 


Figura 7 — 


O circuito eletrônico dos dois controladores (paddle O e 
paddle 1) está na figura 7. Os potenciômetros estão indicados 
por R2 e R3, os resistores de aterramento por R1 e R4e os 
interruptores por CHI e CH2. 


Os dispositivos foram montados em caixa plástica de rádio 
portátil com as dimensões de 65 x 55 x 25 mm, cujo orifício 
do alto-falante foi coberto com placa de acrílico fixada à cai- 
xa, tendo o potenciômetro preso em sua parte central. O in- 
terruptor foi instalado em uma das laterais e o cabo condutor 
foi feito com fio paralelo duplo, com malha individual em 
cada um, obtendo-se os quatro condutores necessários às 
conexões. 

Em meu micro foram instalados dois soquetes Philips de 
cinco pinos na face posterior do equipamento, ligado ao so- 
quete de controlador por cabo múltiplo de seis veias e conec- 
tores adequados (figura 8). O material empregado foi o se- 
guinte: 





Figura 8 - Painel traseiro do Apple onde foram instalados os dois so- 
quetes Philips de cinco pinos para os dois controladores 
(PDL 0 e PDL 1). 

1) Resistores 


e RleR4-470 ohms — 1/4 W 

e R2e R3- 100 kohms — potenciômetro linear de carvão (*) 
2) Diversos 

e CHI e CH2 — interruptor monopolar simples de pressão 

e Caixa plástica de rádio portátil, knobs, cabo paralelo duplo 
com malha individual nos dois condutores, conectores para so- 
quete de 16 pinos etc. 





(+) Observação: na verdade, qualquer potenciômetro de 1 


kohms pode ser empregado, uma vez somente cerca de 
1/3 da pista é utilizado para variar os ros entre O e 255, 
devendo-se dar preferência ao potenciômetro de fio ao invés 


do ce carvão, o qual tem maior durabilidade e constâncie na 


Evandro Mascarenhas de Oliveira é médico e exerce suas atividades em 
Laboratório Clínico e Instrumentação Médica. Trabalhou durante qua- 
tro anos com o computador Burroughs 6700 do Núcleo de Computação 
Eletrônica da UFRJ, usando as linguagens FORTRAN IV e Algol. Tem 
vários artigos publicados nas áreas de Eletrônica Digital e Geral em re- 
vistas especializadas. 
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. Como aprender 
microcomputação sem 
fazer milita força. 


& A Libra é formada por profissionais que conhecem todos os segredos dos micros. 
N Eles desenvolveram um método simples, fácil e descomplicado para você 
, aprender microcomputação. 


Toda a força já foi feita para você. 


mais completa do mercado em microcomputação. 
Apostilas próprias, especialmente preparadas. Professores especializados. Treinamento 
em are de todos os níveis de sofisticação. Cursos em todos os horários, em inglês ou 
a . Salas de apenas 12 alunos, com no máximo três alunos por micro. Certificado de 
= co são. 
Você entra, senta e fica espantado: nunca foi tão fácil e tão rápido aprender tudo sobre 
microcomputação. 


Você aprende tudo o que quiser. 


Os cursos da Libra vão do be-a-bá até a pós-graduação. Estes são 
apenas alguns exemplos: j 

Introdução ao microcomputador - o que é, para que serve, como funciona, 
histórico, possibilidades futuras. 

Aplicativos - você é apresentado ao conceito dos escritórios do futuro: “office- 
automation” através dos E mais famosos e utilizados do mundo: Visicale, 
Banco de Dados, Edição 'extos e Gráficos. 

Basic Total - a programação pelo caminho mais curto. 

Treinamento em softwares - Os posa mais avançados e utilizados, vistos com 


| Sua empresa também ganha com a Libra. 


Ganha porque seus funcionários não perdem tempo, e já vão logo aproveitando 
todas as vantagens dos micros. 
E ganha porque a Libra também coloca a sua empresa em contato com os melhores 
serviços de microcomputação e o melhor software disponíveis. 
W Sá ; Desenvolvimento de sistemas especiais. Aplicativos de todos os tipos. Orientação na 
e 4, implantação e utilização de sistemas. 
neo Each abpestmeio! 0 use a Deo co a db e a 
das / E sem fazer a menor força: o único trabalho é telefonar ou mandar o cupom. 


= 
ECT ir Ra ae en 
E Libra | Gostaria de receber: ( ) maiores informações ( Ja visita de um representante | 
] | 
Nome 


Libra Informática Ltda. Rm 
Pça. Charles Miller, 96 - CEP 01234 | 
Tels.: (011) 65.5081 e 262.9033 


I 

I 

Ne 1 
(em frente ao Est. do Pacaembú) sn op ; 
e 3 
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Seu micro da linha TRS-80 | fará de você o piloto de um caça sobre uma cidade que 
está sendo atacada. E preciso salvá-la das bombas inimigas... Portanto, mire e atire 








Bombardeio 


Helvecio C. R. Netto 

















que leva alguém a escrever um O jogo Bombardeio foi escrito para 
O jogo? Talvez a esperança de ilustrar algumas técnicas de programação 

passar algumas divertidas horas de jogos que poderão ser usadas em 
na frente do micro. Mas, por que não outros enredos. A montagem da tela foi 
comprar um jogo? A resposta é simples: feita em vários níveis:o chão, os prédios, 
porque os jogos são o tipo de software a mira, o contador de combustível, etc. 
mais sujeito a críticas, exatamente por A rotina de movimento foi construída 
dependerem mais do gosto do freguês. com a utilização das instruções SET e 
Não existe abundância de material no POKE, a primeira para movimentar as 
mercado, apesar de parecer o contrário, bombas e a segunda para movimentar a 
e o usuário encontra dificuldade em mira, ambas com o objetivo de agilizar o 
escolher um que lhe agrade. deslocamento dos objetos. 
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A consulta ao teclado é feita através do 
PEEK da posição 14420. Tal posição 
devolve: 


8 — seta para cima 

16 — seta para baixo 
32 — seta para direita 
64 — seta para esquerda 
128 — barra espaço 

O — para o resto 


Como fica fácil notar, LOG(N)/LOG(2)-2 
devolve um número no intervalo entre 
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10 GOSUB 370 


160,180,20 


* RND(100)<20, D= 
C+D>0 AND C+D<l 


<16192, POKE P,128: 


RETURN 
IF P>15492, POKE P,128: 


le 5, dependendo da tecla pressionada. 
O resto do jogo pode ser resumido a 
poucos passos, como atualização de 
ponteiros e contadores. 


Este jogo é um exemplo que contém 
elementos suficientes para que você 
finalmente anime-se, ponha a 
imaginação para funcionar e escreva suas 
aventuras. 


COMO JOGAR 
O ei 








Ao final da listagem digite RUN. O 
sistema vai apresentar na tela as regras do 
jogo. Para a movimentação você vai 
utilizar as setas (esquerda, direita, cima, 
baixo) e a barra de espaço para atirar. 


Para acertar as bombas você terá um 
combustível inicial de defesa, que se irá 
desgastando a cada nova investida. Mas 
não se preocupe; em compensação, a 
cada bomba atingida você receberá um 
combustível extra para prosseguir O 
combate. 


No final, quando você tiver gasto todo 
seu combustível, o sistema irá mostrar, 
no campo superior da tela, quantas 
bombas você acertou e qual a sua 
classificação final. 


Não desanime nas primeiras tentativas 
se a sua performance não for excelente. 
Aqui vai uma dica: não tente destruir as 
bombas no alto da tela; espere que elas 
abaixem para desferir o tiro fatal. 
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Bombardeio Aéreo 


TURN 
P<16251, POKE F 


4 BUCK RODGERS FARIA M 
ROUB 
fAXIMO! " 


O 62: POKE 153 
NEXT 

TO 16256 STEP 64 

)KE 1+63,206: NEX 


PRINTE148,"BOMBARDEI 
'/0266,"Sua cidade esta' sob b 
bardeio inimigo";€330,"Sua mis 

salva-la";8394,"Para isso v 

nta unicamente com";0458," 
lidade nos comandos de s 
2,"acertando as bom 

com seus foguetes"; 

PRINTG650,"Movimente a mira 

as setas e dispare com";0714 

barra de espaço";€778,"CUIDA 
nao deixe o combustivel acab 


Helvecio C. R. Netto cursa atualmente o 4º período de Informática na UFRJ, tendo cursos de 
FORTRAN, Pascal, Assembler, ALGOL e COBOL. Estagia desde agosto de 1983 no CPD da 
MICRO SISTEMAS. 








Não pare seu programa 
nem perca a memória 


GERATRON 


Gerador Eletrônico Portátil de 200 VA 


O Gerador Eletrônico GERATRON 


é a solução definitiva p: 
o problema de falha na rede 


elétrica. Quando à faltar 
GERATRON continuará alimentande 


(5) GUARDIAN opa me qe 


Equipamentos Eletrônicos Ltda. a gi Had 


h 
Rua Dr. Gar 
* São Paulo (011) 2 


4) 222-32 


ha e CEP 20971 e RJ e Teis.: (021) 201-0195, 261-6458 
e 241-7511 e Brasília (06 0133 e Salvador ( 
* Bele F. .Fo 


91 e Blumenau 


3295 e Tel 








Faça a sua boa ação do dia: ajude uma “galinha” a atravessar uma 
avenida congestionada, na tela de seu micro da linha Sinclair 








Penosa travessia 





Gustavo Egidio de Almeida 





e consiste no seguinte: você está em frente a uma 

avenida congestionada e tem que atravessar uma 
galinha (caráter $) de um lado ao outro desta avenida, 
desviando dos veículos que nela transitam. Se a galinha for 
pega por algum dos veículos, ela retorna ao ponto de partida. 
O único detalhe é que a galinha só pode mover-se para cima e 
para baixo, respectivamente com as teclas 7 e 6. Na parte de 
baixo da tela, há um contador que marca quantas vezes foi 
conseguida a travessia e outro que marca o recorde do jogo. 
A digitação deve ser feita em duas etapas. Entre primeiro com 
a listagem 1 e dê um RUN (se quiser, liste o programa e veja 
como a linha 1 mudou de aspecto). Apague todas as linhas, 
exceto a 1, e entre com a listagem 2. 
Pronto. Agora é só treinar bastante, conseguir um recorde bem 
alto e desafiar seus amigos a superá-lo. Você verá que 
atravessar uma galinha não é tão fácil assim como parece... 


E ste programa foi escrito para os micros da linha Sinclair 





Gustavo Egídio de Almeida possui cursos de BASIC e COBOL. Atual- 
mente cursa o Núcleo de Orientação de Estudos, especializando-se em 
linguagem de máquina, mais especificamente no Assembly Z-B0 usado 
em micros da linha Sinclair. É usuário, há mais de seis meses, de um CP- 
200. 


2 REM GUSTAVO EGIDIO DE ALMEI 


3 REM AVENIDA 

4 POKE 16418,0 

5 LET P=0 

6 LET L=0 

7 LET A$=" RENAS 
DE 


8 PRINT AT 0,10; 

9 PRINT AT 8,0;"0 OBJETIVO DO 
JOGO EH","ATRAVESSAR A GALINHA 
($) DE UM","LADO AO OUTRO DA AVE 


18 NEXT F 


(RND*28) ;” 


(RND*28) ;" 
NEXT F 





19 FOR F=1 TO 21 

20 LET M=INT (RND*1) 

21 IF M=0 THEN PRINT AT F, INT LET E=USR 16514 
” 


22 IF M=0 THEN P) 


1 REM XXX(34 CARACTERES QUAIS 
QUER) XXX 

2 LET A$="2A0C4023012116CD944 
0C5060009C110F6C9E5C5061F7E234E2 
B712310F977C1E1C9" 

3 LET M=16514 

4 FOR K=1 TO LEN A$ STEP 2 

5 LET A=(CODE A$(K)-28) *16+Co 
DE A$(K+1)-28 

6 POKE M,A 

7 LET M=M+1 

8 NEXT K 


35 IF PEEK (PEEK 16398+PEEK 16 
399*256)<>0 THEN LET A=22 
36 IF INKEY$="6" THEN LET A=A+ 


IF INKEY$="7" THEN LET A=A- 
IF A>22 THEN LET A=22 

IF A=0 THEN GOTO 47 

NEXT Z 


GOSUB 28 
PRINT AT 0,6;"OUTRA VEZ? DI 


RINT AT F,INT 
” 


NIDA” PRINT AT 0,0;A$;AT 22,0;A$ o” 


10 PRINT ,,"TECLAS 6 E 7 MOVEM SLOW 
($9" GOSUB 28 


IF NOT INKEY$="0" THEN GOTO 


nu 
o” 
12 
12 
13 
14 
15 
16 
17 


PRINT ,,"PARA COMECAR TECLE 
IF NOT INKEY$="0" THEN GOTO 


FAST 

PRINT AT 0,0; 

FOR F=1 TO 70 

LET M=INT (RND*12)+140 
PRINT " ";CHR$ M;" 


Soro 31 

IF L>=P THEN LET P=L, 

PRINT AT 23,3; "VEZES: ";L;T 
; “RECORDE: ";P 

RETURN 

LET A=22 

LET 10 

FOR Z=1 TO 300 

PRINT AT A,B;"$";AT A,B;" " 





LET L=0 

coro 13 

LET L=L+1 
GOSUB 28 

LET A=22 

Goro 41 

SAVE "AVENIDA" 
SLOW 

RUN 
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classifica 











EQUIPAMENTOS 





e Compro a cópia do manual de 
operação do sistema NEW DOS. 
Tratar com Carlos Lacerda Lopes, 
Rua Américo Lobo, 675, Manoel 
Honório, Juiz de Fora, MG. 

e Troco micro TK85 de 48 K de 
RAM, novo (na caixa) e Walkman 
PS-50 da CCE por um CP-300 em 
bom estado. Telefonar para Sérgio 
após as 18:00h: (011) 220-6510. 
e Vendo TK82-C de 16 K, 20 
jogos, joystick com dois livros so- 
bre jogos e um livro de aplicações 
sérias por Cr$ 150 mil. Tratar 
com Fernando, tel.: (041) 266- 
1259, Curitiba, PR. 

e Vendo NE-Z8000, com expan- 
são de 16K, pouco uso, por Cr$ 
120 mil. Rio Branco, 45, 1311, 
RJ. 

e Vendo microcomputador DGT- 
100 com 32K RAM, vídeo e gra- 
vador cassete. Tratar com Carva- 
lho, após as 19:00 h pelo tel.: 
(0192) 52-3477, Campinas, SP. 


e Vendo um CP-200, com pouco 
uso. Tratar com Sílvio Vasconce- 
los na Rua Tabapuã 266, apt. 31, 
tel.: (011) 64-5001, São Paulo. 

e Vendo TK82-C, sem expansão 
e na garantia por Cr$ 90 mil. Tra- 
tar com Claudio na Rua Carolina 
Florence, 625, Campinas, São 
Paulo, tel.: (0192) 42-5151. 


e Vendo um NE-Z8000, mais o 
esquema do slow e o esquema do 
CP-200 que permitem a conver- 
são do NE-Z8000, tudo por Cr$ 
80 mil. Compro um D-8000 ou 
DGT-100 ou um JR da Sysdata; 
tratar com Roberto Diniz, Rua 
Vicente Scherma nº 35, Jacareí, 
São Paulo. 

e Vendo HP-41C com leitora, 
três módulos de expansão e um 
módulo “Structural Stress”. Li- 
juem para 531-0556, Gerson 
Bianco Alonso, São Paulo. 

e Vendo modem Coencisa MPC 
12, naembalagem. Tel.:711-3072, 
Cristina, Niterói, RJ. 





DIVERSOS 





e Vendo diversos livros em In- 
glês sobre micros; programas em 
fita que acabam com a repetição 
inoportuna de teclas nos Dismac 
e similares; amplificador para, 
junto com essa fita, obter Beep do 
teclado e tocar músicas dos pro- 
gramas publicados em MICRO 
SISTEMAS sobre aplicações sono- 
ras para DGT-100; esquema de 
programador de EPROM para a 
linha TRS-80 | e Ill; e interface 
RS-232 pela saída cassete. Enri- 
que Ferri, Rua Fiação da Saúde, 
128/103, CEP 04144, São Paulo, 
SP, Tel.: 247-4400 R: 335. 
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e Vendo as seguintes revistas: 
Nova Eletrônica (do nº 3ao 81), 
Interface (n9 1 ao 10), Micro 
Mundo (n?s 1 a 18, quando jor- 
nal, e 1 ao 3, revista), MICRO 
SISTEMAS nº 6 e oslivros: Guia 
para Programadores, de Marlyn 
Boll e Programação Cobol, de Alex 
C. Bastos. Vendo também o jornal 
Data News de maio de 1981 até 
maio de 1983. Tratar com Sílvio 
pelo tel.: (011) 293-4608, SP. 

e Faço slow, controle automáti- 
co para cassete, funções especiais, 
gravador de EPROM nos micros 
Z-8000, CP-200, TK82-C e TK85. 
Também gravo memórias sob en- 
comenda. Tratar com Jenilton, 
Rua 227-A, nº 255, Setor Univer- 
sitário, tel.: (062) 261-2862, 
Goiânia. 

e Compro, desde que estejam 
em perfeitas condições, as revistas 
MICRO SISTEMAS nºs: 02, 06, 
07 e 09, por Cr$ 1 mil cada. Car- 
tas para Sílvio de Queiroz, Praça 
da Matriz n9 01, BNH, Bairro São 
Francisco, São Luís, Maranhão, 
CEP 65.000. 

e Compro osn9s1,2,4,5,6e 
7 de MICRO SISTEMAS, pelo 
preço atual. Contatos pelos tels.: 
(071) 231-5657 (residencial) e 
231-2145 (horário comercial). 
Olinto José de Oliveira, Rua Vi- 
vendas do Imbui, EB, Igarapé, 
apto. 303, Salvador, BA. 

e Vendo o livro “Jogos para a 
HP-41C”, contendo 15 progra- 
mas, entre os quais: Flipperama, 
Guerra nas Estrelas, Biorritmo, 
etc. Tratar com Flávio pelo tel.: 
(011) 570-7829. 





SOFTWARE 


e Vendo para o TRS-80 Color 
Computer e similares nacionais 
“SPEAK UP”, sintetizador de voz 
totalmente software, de excelente 
qualidade, adiciona voz variável, 
fala qualquer idioma, manual 
completo. Preço: US$ 30,00 (cas- 
sete com instruções). Tratar com 
José Gilberto Mendonça Filho, 
Alameda Andrade, Ed. Serra do 
Garcia, apto. 1203, Garcia, Salva- 
dor, Bahia, CEP 40000. 


e Vendo fita com programa de 
xadrez para o TK82-C por Cr$ 5 
mil. Tratar com Edison ou Isabel 
pelo tel.: (011) 436-0665 ou es- 
crever para Av. Manoel Pontes 
Junior, 295, Jundiaí, São Paulo, 
CEP 13200. 


e Vendo um programa que, en- 
tre outras coisas, calcula e gera as 
combinações na Loto (e os respec- 
tivos cartões de dez apostas, 
obviamente) para uma quantidade 
de dezenas a escolher. Os interes- 
sados procurar David Lucio Ló- 
pez, Rua Marte, 101/403, Jardim 
Riacho, Contagem, MG — Tel.: 
(031) 351-3468. 





Papa 


p' 
val 





e MICROCLUB — TKk-82/85 e 
CP-200/300/500. Associe-se gra- 
tuitamente e garanta o recebimen- 
to imediato de quatro programas 
de jogos. Promoção até 30 de ou- 
tubro. Envie envelope selado e de- 
talhes de seu micro. MICROCLUB, 
Cx. Postal 941, S. B. Campo, SP, 
CEP 09700. 

e Clube de usuários de micro- 
computadores no qual você troca 
idéias, programas, equipamentos e 
soluciona dúvidas. Para maiores 
informações escrever para Caixa 
Postal 7459, CEP 01000, São 
Paulo. 


e Desejo entrar em contato com 
usuários de micros similares ao 
TK82-C para troca de programas 
e experiências, principalmente os 
residentes na região de Blumenau, 
onde poderemos marcar reuniões. 
Contatar Zoctan Bergmann, Cx. 
Postal 2172, CEP 89100, Blume- 
nau, Santa Catarina. 

e Gostaria de obter cópia do 
artigo :: Z-Bug Super Debug Mo- 
nitor : : publicado na revista 80 
MICRO de janeiro de 1981. Quem 
tiver a revista entrar em contato 
com: Vagner Ribeiro, Av. Miran- 
dela, 51, Nilópolis, Tel.: 791-2427 
— RJ. 





35, de O Sistema 
Operacional do 
Zzx81 (il), 2º 


coluna, 72 linha 
do parágrafo 
IMPRESSÃO 
NO VÍDEO 






40, de O Gran Mago 
Z80, 22 coluna, 32 
linha 





79, na linha 026 
da Listagem 1º 
Horóscopo 













UU) 
a 


Como 17 
é iguala 8 










No nº 26, a linha 240 da listagem Jogo do Alvo 
(pág. 75) não saiu legível. Se você teve alguma dúvida, 
veja a linha completa a seguir: 


PRINT 


OM A 


e Estamos organizando em Vi- 
çosa um clube para troca de infor- 
mações entre usuários de equipa- 
mentos de lógica Sinclair e de 
outros compatíveis com o TRS-80. 
Para início, confeccionamos um 
boletim com jogos, programas e 
dicas especiais e estamos ofere- 
cendo aos leitores de MICRO 
SISTEMAS que nos escreverem, 
enviando Cr$ 100 e selos para as 
despesas postais. Nosso endereço 
é: Compuclub, Caixa Postal 37, 
CEP 36570 — Viçosa, MG. 


e A Micro Idéia Sistemas, Edu- 
cação e Informática Ltda. está 
formando um clube de usuários 
do Sinclair (TKB2-C e ZX-81) no 
Brasil. Correspondência para: Av. 
Mal. Câmara, 160, s/1.426, Caste- 
lo, CEP 20031, RJ. 


e Faça amigos em todo Brasil 
para troca de programas, livros, 
etc. Anuncie em grande circuito 
Sinclair. Informações grátis. Cx. 
Postal 28, 27200 — Piraí, RJ. 


e Clube dos usuários do TKB2-C, 
NE-Z8000, ZX-81, TIMEX 1000 
e CP-200 escreva para Gonçalo 
Murteira, Praça Belfort Vieira, 
6/103, Leblon, Rio de Janeiro, 
CEP 22440. 





NA ONDE o 


Essa área é imóvel | Essa área é móvel 


Como 1+7 
éiguala B 





THEN | HOME 
TABC S2"TO 
MONTANHA!!! 
POKE c 
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Mostre sua habilidade de bom comedor de pontinhos, ao mesmo tempo 
driblando monstrinhos, nesta versão do Pac Man para a linha Sinclair 





Micro Pac: 
sata dessa, se puder 


qui está uma versão de um dos 
mais populares games dos Esta- 


dos Unidos, o Pac Man (ou Co- 
me-Come, que fica até mais simpático). 
Trata-se do Micro Pac, que pode ser ro- 
dado em qualquer micro da linha Sin- 
clair com configuração de 16 Kb, embo- 
ra use menos memória do que isso. 

o Euro do jogo já é conhecido de 
todos: deve-se controlar o Come-Come 
com as teclas 5, 6, 7 e 8 — ou com um 
joystick — e comer o maior número de 
pontinhos possível (quem sabe até to- 
dos). No entanto, não esqueça: você es- 
tá em um labirinto, sem poder atravessar 
as paredes, e o guardião deste labirinto 
estará sempre atrás de você. Se ele o pe- 
gar, O jogo acaba. Portanto, não dê 
moleza! 

O jogo foi escrito em BASIC e, por 
isso, não espere que ele seja muito rápi- 
do; porém, foram tomados todos os 
cuidados para que, dentro do BASIC, 
ele seja o mais rápido possível. 

Lembrete: se você desejar mudar o 
labirinto, terá que fazer alterações entre 
as linhas 200 e 440. Vamos lá, mãos à 
obra e boa sorte (você rai precisar). 





Walmir E. S. Scaravelli é aluno dos cursos de 
Matemática Aplicada a Sistemas e Estatísti- 
ca, ambos na Universidade de Campinas, onde 
também trabalha no projeto LOGO. O autor 





é ainda professsor de Programação de Micro- 
computadores na cidade de Itu, onde reside. 
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21 


P=P+X 


100 

110 
bb) 

120 


Walmir Scaravelli 





REM WALMIR SCARAVELLI 10/83 
GoTo 200 

LET A=6.5 

LET X=0 

LET V$=INKEY$ 

IF V$<>"" THEN LET A=VAL V$ 
POKE C,S 

POKE P,0 

LET X=34*A-S0O*SGN (A-6.5)-2 


IF PEEK (P+X)<>136 THEN LET 


POKE P,128 
LET Y=33*SGN (INT ((P-C)/28 


IF PEEK (C+y)<>136 THEN LET 


C=c+Y 


130 


LET Y=SGN ((ABS ((P-C)/33-I 


NT ((P-C)/33))<.5)-.5) 


140 


IF PEEK (C+Y)<>136 THEN LET 


C=c+y 


150 
160 
170 
180 
190 
195 
200 
210 
220 
230 
seda 
240 


LET S=PEEK C 

POKE C,151 

IF P<>C THEN GOTO 20 
CLS 

PRINT AT 10,10;"NAO DEU" 
STOP 

FAST 

PRINT 

FOR I=1 TO 10 


PRINT "gain nam 
ERR 


PRINT "M..... 
un 





250 


NEXT 


260 PRINT " WaRSaRRaE En 
Semp rã 


270 FOR I=2 TO 30 STEP 14 

280 FOR J=3 TO 19 STEP 4 

290 PRINT AT J,I;"." 

300 NEXT J 

310 NEXT I 

320 FOR I=5 TO 17 STEP 6 

330 PRINT AT I,1l;".";AT 1,21;" 
” 


340 NEXT I 

350 PRINT AT 9,2;".";AT 9,30;". 
";AT 13,2;".";AT 13,30;"," 

360 PRINT AT 7,15;".";AT 7,17;" 
«3A7.15,15,º. "AT 1517/09 

370 PRINT AT 9,16;".";AT 13,16; 
“MAR 11,39". "SAT 11,299, 

380 PRINT AT 6,16; "N";AT 7,16;" 
Mat 11,16;"W";AT 15,16; "W";AT 
16,16;"HP + 

390 FOR 1=9 TO 13 STEP 2 

400 PRINT AT I,4;".";AT 1,28;". 
" 


410 NEXT I 
420 FOR I=8 TO 14 STEP 2 

430 PRINT AT 1,3;"MP;AT 1,29; "H 
" 


440 NEXT I 

450 PRINT AT 0,0;" " 

460 LET C=PEEK 16398+PEEK 16399 
*256+115 

470 LET P=C+495 

480 LET S=27 

490 SLOW 

500 GoTo 20 
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Seduzido e abandonado. 


Isso que dizer orientação 
inteligente e correta na escolha do 
software mais adequado (também 


Esta é a história do cavalheiro que comprou 
um microcomputador que ia resolver todos 
os problemas da sua empresa. 

O preçinho era bom e a conversa do 
vendedor, atraente. Poucos dias depois ele 
descobriu que o equipamento não resolvia 
todos os problemas (pelo contrário, criava 
alguns novos) e pior de tudo, ao voltar à loja 
onde tinha comprado, percebeu que ninguém 
entendia realmente do assunto. 

Em outras palavras, ele foi lamentavelmente 
seduzido e abandonado. Mas nem tudo está 
perdido: basta consultar a 

Microshop antes de comprar um 
microcomputador. 


A Microshop ouve antes de falar. 
Micros são formidáveis, desde que sejam 
recomendados exatamente para as suas 
necessidades. 


Porisso nós fazemos todo tipo de 
perguntas sobre a sua atividade, e o 
tratamento das informações para podermos 
acelerar o processo de tomada de decisões. 
Nós achamos que quanto mais soubermos 
sobre o seu problema, mais fácil e completa 
será a nossa solução. 


A Microshop dá opiniões sinceras. 
Trabalhamos com todas as marcas e modelos 
importantes e não temos interesse em 
“empurrar” esta ou aquela marca. Assim, 
você tem a certeza de receber 

sempre um opinião independente. 


A Microshop resolve mesmo. 

Ao invés de um simples balconista bem- 
intencionado, nós atendemos você com gente 
formada em Computer Science na 
Universidade de Nova York. 


desenvolvemos programas específicos para as 
suas necessidades). Significa também colocar 
à sua disposição nossa longa experiência com 
profissionais liberais, empresas de pequeno 
porte e multinacionais. E mais: damos 
treinamento completo na utilização dos 
micros e softwares. 

Venha conversar conosco. Nós podemos lhe 
seduzir, mas não vamos nunca lhe abandonar. 


A loja dos micros inteligentes. 


São Paulo: Al. Lorena, 652 - CEP. 01424 - Tel.: (011) 853.928 


Recife: Av. Conselheiro Aguiar, 1385 - Loja 4 - CEP. 50000 - Tel. 


81) 326.1525 - Boa Viagem. 








bi sia ni A e oia Ra À tá id 
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Crie, modifique, apague, imprima e consulte sempre que precisar o cadastro geral 
de seus clientes em seu micro da linha TRS-80 








Cadastro 
de clientes 


senvolvido para microcompu- 
tadores da linha TRS-80 com 

48 Kb de memória. Carregado, ele não 
ocupa mais de 10 Kb, mas, quando em 
execução, aloca aproximadamente 30 
Kb para armazenamento das tabelas. 

Essas tabelas são o arquivo do cadas- 
tro, o qual tem capacidade de armazenar 
até 100 registros (fichas) com a seguin- 
te constituição: 
COD — código; é um campo de controle, 
onde pode ser definido um código de 
controle das fichas; 
NOME — nome do cliente; 
ENDEREÇO -— endereço do cliente; 
TELEFONE — telefone do cliente; 
BAIRRO — bairro onde reside o cliente; 
CIDADE — cidade onde reside o cliente; 
ESTADO — estado onde reside o cliente; 
CEP — código de endereçamento postal 
da cidade. 

A tabela M$ armazena o nome dos 
campos do registro, que são esses que 


O programa Cadastro Geral foi de- 


Newton Braga Júnior 





acabamos de ver. Caso você queira um 
novo tipo de registro, com nomes de 
campos diferentes desses apresentados, 
esta tabela MS deverá ser alterada, jun- 
tamente com as linhas 610, 615; 620, 
625, 630, 635, 640, 645, 650, 655, 660, 
665, 670, 675, 680 e 685, pois nelas 
também devem ser modificados os no- 
mes dos campos. 


AS OPÇÕES 


O programa é auto-explicativo e pos- 

sui as seguintes opções: 

— Carregar o arquivo do cassete; 

— Gravar O arquivo no cassete; 

— Inserir registro (colocar novas fi- 
chas); 

— Modificar registro; 

— Apagar registro; 

— Consulta ao arquivo; 

— Listar o arquivo no vídeo; 

— Listar o arquivo na impressora; 

— Classificar o arquivo (colocar em 
ordem alfabética). 


tom 


DOI a 








O caráter + (seta para cima) é a saí- 
da de rotina do programa, ou seja, se vo- 
cê estiver para executar ou se estiver 
executando alguma rotina do programa 
e desejar voltar ao seletor principal, bas- 
ta pressionar essa tecla. Caso você já este- 
ja no seletor principal, este é o meio de 
saída do programa. 

A consulta ao arquivo pode ser feita 
usando-se como referência qualquer 
campo do arquivo. No caso de ser en- 
contrado mais de um registro com o 
campo igual ao do selecionado, o pro- 
grama o apresenta em ordem de pesqui- 
sa, dando ao final o número de registros 
encontrados. 

Ao ser deletado (apagado) algum re- 
gistro, o programa entra automatica- 
mente em processo de classificação. 





Newton Duarte Braga Júnior é programador 
COBOL , FORTRAN e BASIC. Atualmente 
exerce a função de Gerente de Sistemas na lo- 
ja Rio Micro Computadores Ltda. 
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a GTRAR 000 Cadastro Geral 


3 DIM CD$(100) ,NM$ (100) ,ED$ (100) , TL$ (100), BR$(100) ,CI$(100), ES$ (100) 
«CE$(100), X(50): DEFINT A-Z: :POKE16396, 175 
5 M$(1)="CODS.......” :M$ (2) ="NOME. ..... . ":M$ (3)="ENDERECO. .. ":M$ (4)= 
"TELEFONE. « "M$ (5) ="BAIRRO. . ...” :M$ (6) ="CIDADE.....":M$(7)="ESTADO. . 
00» "M$ (8)="CEP.. 
7 M1$=STRINGS$ (63, ="PRESS < RETURN > PARA CUNTINUAR":N=0:D=0 

10 GOSUB3000: PRINTEISO, BANCO DE DADOS"; i 
12 PRINTG336,"(+) ===> SAIDA DE ROTINA";8397,"1 ===> CARREGAR ARQUIV | 

















O DO CASSETE";€461,"2 ===> GRAVAR ARQUIVO NO CASSETE" , 

OLOCAR REGISTRO" ;0589,"4 ===> MODIFICAR REGISTRO";0653,"5 ===> DELET 

AR REGISTRO"; 

13 PRINTG717,"6 ===> CONSULTAR ARQUIVO";0781,"7 ===> LISTAR ARQUIVO ] 

( CRT )";0845,"8 ===> LISTAR ARQUIVO ( PRINTER )";8909,"9 ===> CLASS l 

IFICAR ARQUIVO" ; | 
i 





16 FORI=17031:P0KE16333+1, I:NEXT:FORI=1TO1OO:NEXT:I$=INKEY$:IFI$="" 

FORI=17031:POKE16364-I, I :NEXT:FORI=1T0100 :NEXT:GOTOl6 ELSE IFASC(I$) 

=91,CLS:END ELSE P=VAL(I$) :IFP<1,16 

18 ON P GOSUBIOO,200, 300,400,500,600,700,800,900:GOTOLO 

100 GOSUB3000:PRINTE146, "CARREGAR ARQUIVO DO CASSETE" ; 

102 PRINTE448, "POSICIONE A FITA E PRESS < RETURN >";:PORI=1TO10O0:NEX 

T:I$=INKEY$: IFI$="",PRINTO448,STRING$ (36,32) ; :FORI=1TO100:NEXT:GOTOL 

02 ELSEIFASC(1I$)=91,RETURN ELSEIFASC (1$)=13,104 ELSE102 

104 PRINTO448,M1$;0448, "CARREGANDO O NUMERO DE REGISTROS"; : INPUTA-1, 

N:PRINTE448,M1$;0448, "CARREGANDO REGISTRO ===> ";:PORI=ITON:PRINTE47 | 

4,1;: INPUTO-1,CD$(I) ,NM$(I) ,ED$(I), TL$(I) ,BR$(I) CI$(I) ,ES$(I),CE$(I 

) :NEXT:PRINTO448,M1$;0448,"ARQUIVO NA MEMORIA" ; | 

106 PRINTE974,M2$;:FORI=1TO10O:NEXT:I$=INKEY$:IFI$="",PRINTE974,STRI 

NG$ (32,32) ; *FORI=1TO100:NEXT:GOTO106 ELSEIFASC(I$)=13,RETURNELSE106 | 

200 GOSUB3000:PRINTE146, "GRAVAR ARQUIVO NO CASSETE 

202 PRINTE448,"POSICIONE A FITA E PRESS < RETURN >";:FORI=1TO100:NEX 

T:I$=INKEY$:IFI$="", PRINTO448, STRINGS (36, 32) ; : FORI=1TO100:NEXT:GOTO2 

02 ELSEIFASC(I$)=91,RETURN ELSEIFASC(1I$)=13,204 ELSE202 

204 PRINTE448,M1$;0448, "GRAVANDO O NUMERO DE REGISTROS" ;:PRINTG-1,N: 

PRINTG448,M1$;0448, "GRAVANDO REGISTRO ===> ";:PORI=ITON:PRINTG472,I; 

:PRINT$-1,CD$(I) ,NM$(I) ,ED$(I),TL$(I),BR$(I) ,CI$(I) ,ES$(I) ,CES(I) :NE 

XT:PRINTOÃ48,M1$;0448, "ARQUIVO GRAVADO" ; :GOTO106 

300 IFN=100, 396 ELSEGOSUB3000:PRINTELSO, "COLOCAR REGISTRO" ; 

301 A=0:FORB=384T0832STEP64:A=A+1:PRINTOB,M$ (A) ; :NEXT B 

302 FOR B=N+1T0100:PRINTE167,B; 

311 PRINTE395,;:J1$=" ": INPUTJI$:GOSUB399:TFC=1, RETURN ELSE IFJ1$<>" 
",CD$(B)=J1$ ELSECD$(B)=" " 

312 PRINTO448,M$(2);:91$=" ": INPUTJI$:GOSUB399:IFC=1, RETURN ELSE IFJ 

1$<>" ",NM$ (B) =J1$ ELSENM$ (B) =" ” 

313 PRINTGS12,M$(3);:J1$=" ": INPUTJI$:GOSUB399:IFC=1, RETURN ELSE IFJ 

1$<>" ",ED$(B)=J1$ ELSEED$(B)=" " 

314 PRINTOS76,M$ (4) ;:J1$=" ": INPUTJI$:GOSUB399: IFC=1, RETURN ELSE IFJ 

1$<>" ",TL$(B)=J1$ ELSETL$(B)=" " 

315 PRINTOG4O M$ (5) ;:J1$=" ": INPUTJI$:GOSUB399: IFC=1, RETURN ELSE IFJ 

1$<>" ",BR$(B)=J1$ ELSEBR$(B)=" " 

316 PRINTE704,M$ (6) ; :J1$=" NPUTJ1$:GOSUB399:IFC=1,RETURN ELSE IFJ 

1$<>" ",CI$S(B)=J1$ ELSECI$(B)=" " 

317 PRINTE768,M$(7); :J1$=" NPUTJ1$:GOSUB399:IFC=1, RETURN ELSE IFJ 

1$<>" ",ES$(B)=J1$ ELSEES$(B)=" " 

318 PRINTGS32,M$ (8) ;:J1$=" ": INPUTJÍ$:GOSUB399:TFC=1, RETURN ELSE IFJ 

1$<>" ",CE$(B)=J1$ ELSECE$(B)=" * 

395 FORK=395TOB43STEP64:PRINTEK, STRING$ (52,32); :NEXT:NEXT B 

396 GOSUB3000:PRINTE135, "NAO EXISTE ESPACO NO ARQUIVO PARA OUTRO REG 

ISTRO"; :GOTO106 

399 IFJ1$="+",C=1:N=B-1:RETURN ELSE C=0:RETURN 

400 IFN=0,450 ELSEGOSUB3000:PRINTEISO . "MODIFICAR REGISTRO" ; 

401 PRINTE448, "QUAL O NUMERO DO REGISTRO A SER MODIFICADO 

M$: IFRM$"+", RETURN ELSE R=VAL (RM$) : IFR<1ORR>N,PRINTE448,M1 
ELSEGOSUB3000 

402 PRINTE136, "INSERIR AS MODIFICACOES NOS CAMPOS DESEJADOS"; :A=0:FO 

RB=384TOB32STEP64:A=A+1:PRINTES,M$ (A) ; :NEXT | 

411 PRINTE396,; :K$="": INPUTK$:PRINTO448,M$ (2) ;: IFK$="",412 ELSECD$S(R | 
































INPUT R 
GOTO401 





AIS PRINTONGO, 7 3K$="": INPUTK$:PRINTES12,M$(3);:IFK$="",413 ELSENM$(R 
A1S 'PRERTÓS2A, 7 2K$="": INPUTK$:PRINTES76,M$ (4); : IFK$="",414 ELSEED$(R 
414 PRINTOSSS, 72K$="": INPUTK$ :PRINTE640,M$ (5); : IFK$="",415 ELSETL$(R 
TS PRRT 652,:;:K$ 7 INPUTK$:PRINTÉ704,M$(6);: IFK$="",416 ELSEBR$(R 
We prós, 3 2:K$="": INPUTK$:PRINT6768,M$(7);: IFK$="",417 ELSECI$(R 
417 paremendo, 5 3K$="": INPUTK$:PRINTES32,M$ (8); :IFK$="",418 ELSEES$(R 


418 PRINTOS44,;:K$="":INPUTK$:IPK$="",420 ELSE CES(R) =K$ 
420 FORF=396TO8B4 4STEP6 4:PRINTOP, STRING$ (51,32); :NEXT 

430 PRINT6396, CD$ (R) ;8460 ,NM$ (R) ;8524,ED$ (R) ;0588, TL$ (R) ;0652,BR$ (R) 
;0716 ,CI$(R) ;0780,ES$(R) ;0844,CES$ (R) ;/8129,STRING$ (61,32) ;8140, "CONST 
TITUICAO ATUAL DO REGISTRO 4 ";R;:GOTO106 

450 GOSUB3000 :PRINTÉ150, "ARQUIVO INEXISTENTE" ; :GOTO106 

500 IFN=0,450 ELSEGOSUB3000:PRINTE146, "DELETAR REGISTRO"; 

505 PRINTÊ448, "QUAL O NUMERO DO REGISTRO A SER DELETADO ";:INPUTDR$: 
TPDR$ 4 RETOS ELSEDL=1:D=VAL (DR$) : IFD<1ORD>N, PRINTQ448, M1$; :GOTOS 
510 CD$(D)=" ":NM$(D)=" ":ED$(D)=" ":TL$(D)=" ":BR$(D)=" ":CIS(D)=" 
":ES$(D)=" ":CES(D)=" ":PRINTO448,M1$:0448, "REGISTRO >"D"< DELETADO” 
;:PORY=1T01500 :NEXT:PRINTO448,M1$;6448,"AGORA O ARQUIVO SERA CLASSIF 
ICADO" ; : FORY=1T02000 :NEXT:GOSUB912:RETURN 

600 IFN=0,450 ELSEGOSUB3000 :PRINTÉ15S0, "CONSULTA AO ARQUIVO"; 
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U ENDEREÇO 
DE TUDUS 15 
MICROS 


Em nossa loja somos todos 
Pró-informática, Pró-didática e 
Pró-eletrônica. 
=== s 


veia SIROK 


aaenoDema 4 
Potymax runitron 
SLESFÊB aceco 








Rua Santa Efigênia, 568 — CEP 01207 — São Paulo — SP 
Teis.: 220-7888 — 221-9055 — Telex (011) 34901 — POEC 





OMPUTE 


emas E COMPUTADORES LTDA 
ss 


MICROS, 
VÍDEOS, GAMES & CIA. 


Computadores: 
Polymax, Unitron, Prológica, 
Micro Digital, Sysdata. 


* OFERTA ESPECIAL x 
“MAXXI” 


vi ídeos: Philco e Sharp 
Televisores Sanyo 


Atari 
RTA:Cartuchos para Atari 
a preço de custo. 


tos; Fitas, Disquetes, 
Formulários. 


Rua Estados Un 
Tel. 852-8290 / 257-3852 /231-1173 
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* LM reginiros do CPU + endereços da ROM 4 RAM com saido Menadocimal 
e utamumênca 


* Pumio operação tumuninao com outros programas am BASIC ve Loguaçom 
de msgs 


* Ferramenta indiapo desenvolvimento o 0d 
ão do programs membiy compatico 
micro-computadoras rM47 TROS TROS MELISS O 20 

PREÇO CASA 500,00 


Pao comete o mensal de metruçãos 
Desgonas de romena incluidas no preço 
Corticado do garantia 


MEDIANTE CHEQUE NOMINAL A 
MICROCOMPUTADORES LTDA | 


CAIXA POSTAL - 3447 
80.000 - CURITIBA - PR 

















CADASTRO DE CLIENTES 


601 A=0:FORB=406TOBS4STEP64:A=A+1:PRINTES,M$(A);"> "A" <";:NEXT 

602 PRINTG975, "SELECIONAR O CAMPO PARA CONSULTA"; : FORI=1TOL0O:NEXT:I 
$=INKEY$: IFI$="", PRINTE975, STRING$ (32,32) ; : FORI=1TO100:NEXT:GOTO602 
ELSEIFASC(I$)=91/ RETURN ELSEP=VAL(I$) :IFP<1ORP>8, 602ELSEGOSUB3000 
603 ON P GOSUB 610,620,630,640,650,660,670,680:RETURN 

610 X=0:PRINTEI46, "INTRODUZIR: COD9"; 0448, “=== : INPUTI$ :GOSUB699: 
IFC=1, RETURN ELSEFORI=1 TON: IFCD$ (1) =I$,X=X+1:X(X)=I 

615 NEXT: IFX=0,A$="CODIGO":GOTO690 ELSE695 
620 X=0:PRINTEI46,"INTRODUZIR: NOME" ;0448, 
IFC=1, RETURN ELSEFORI=1TON:IFNM$(T)=I$,X=X+1:X(X) 
625 NEXT:IFX=0,A$="NOME":GOTO690 ELSE695 
RINTE146, "INTRODUZIR: ENDERECO";2448, "; 2 INPUTIS$:GOSUB 
699: IFC=1, RETURN ELSEFORI=I TON: IFED$(I)=1$,X=X+1:X(X)= 

635 NEXT: IFX=0,A$="ENDERECO" :GOTO690 ELSE69S 

RINTOI 46, "INTRODUZIR: TELEFONE ";0448 => 
+ RETURN ELSEFORI=LTON: IPTLS (1) =1$,X=X+1:X(X) 
645 NEXT: IFX=0,A$="TELEFONE" :GOTO690 ELSE695 

650 X=0:PRINTEI46, "INTRODUZIR: BAIRRO" ;0448, "; 3 INPUTI$:GOSUB69 
9:1FC=1,RETURN ELSEFORI=1 TON: IFBR$ (1) =I$,X=X+1:X(X)=1 

655 NEXT: IFX=0,A$="BAIRRO":GOTO690 ELSE695 
660 X=0:PRINTE146, "INTRODUZIR: CIDADE";9448, 
9: IPC=1, RETURN ELSEFORI=1 TON: IFCI$ (1) =1$,X=X+1: x00= 
665 NEXT:IFX=0,A$="CIDADE":GOTO690 ELSE695 
670 X=0:PRINTE146, "INTRODUZIR: ESTADO" ;0448," 
9:1FC=1, RETURN ELSEFORI=1 TON: IFES$ (1) =I$,X=X+1 
675 NEXT: IFX=0,A$="ESTADO":GOTO690 ELSE695 
680 X=0:PRINTO146, "INTRODUZIR: CEP";0448, 
FC=1, RETURN ELSEFORI=1 TON: IFCES$ (1) =I$,X=X+ 
685 NEXT: IFX=0,A$="CEP":GOTO690 ELSE695 
690 GOSUB3000:PRINTE66,A$": "1$;€194, "DIGITACAO ERRADA OU NAO CONSTA 
NO ARQUIVO" ; :GOTO106 

695 GOSUB3000 :PRINTEISO, "REGISTRO * "; :A=0:FORI=384T0832STEP64 :A=A+1: 
PRINTEI,M$ (A) ; :NEXT 

696 FORJ=1TOX:PRINTE396, CDS (X(J) );0460,NM: X(J));0524,ED$(X(J) ) ;0588 
+ TL$(X(J)) ;8652,BR$ (X(J)) ;8716,CIS(X(J)) 16 780,ES$ (X(J)) 8844, CES(X(I 
));8160,X(9); 

697 PRINTE974,M2$;:FORA=1TO100:NEXT: I$=INKEY$:IFI$="",PRINTO974,STRI 
G$ (32,32) ; :FORA=1TO100 :NEXT:GOTO697 ELSEIFASC(1$)=13,PORA=396TOB44ST 
EP64:PRINTOA, STRING$ (51,32) ; :NEXTA ELSEIFI$="P",GOSUB750:GOTO697 ELS 











NPUTI$ :GOSUB699: 



















NPUTI$:GOSUB 





I 








INPUTI$:GOSUB69 


















: INPUTI$:GOSUB69 





> ";: INPUTI$:GOSUB699:T 
89) 




















EIFI$="+", RETURN ELSE697 
698 NEXT:GOSUB3000:PRINTE146,X"REGISTRO(S) ENCONTRADO(S) ";: coro 
106 


699 IFI$="+",C=1:RETURN ELSEC=0: RETURN 

700 IFN=0, 450ELSEGOSUB3000 :PRINTO146, "LISTAR ARQUIVO ( CRT )"; 

701 PRINTE384,"F - AVANCA LISTAGEM" ;0448,"T - RETROCEDE LISTAGEM" ;€5 
12,"P - IMPRIME REGISTRO APRESENTADO" ; 

702 PRINTE974,M2$;: FORA=1TO100 :NEXT:I$=INKEY$:IFI$="",PRINTE974,STRI 
NG$ (32,32) ;:FORA=1T70100:NEXT:GOTO702 ELSEIFASC(I$)=91,RETURNELSEIFAS 
C(1$)=13,G0SUB3000 ELSE702 

705 PRINTEI5S0, "REGISTRO * "; :A=0: FORI=384T0832STEP64:A=A+1:PRINTEI,M$ 
(A); :NEXT:J=1GOTO720 

715 I$=INKEY$:IFI$="",715 ELSEIFI$="F",]=]+1:60T0720 ELS 
J-1:GOTO720 ELSEIFI$="P",GOSUB750:GOTO715 ELSEIFASC(IS 
SE715 

720 IF J>N,J=J-1:GOTO715 ELSEIFJ<1,]=]+1:GOTO715 ELSEGOSUB730:PRINTO 
396,CD$(J) ;0460,NM$(J) ;0524,ED$(J) ;8588, TL$ (J) ;0652,BR$(J) ;0716,CIS( 
7) ;8780,ES$(J) ;0844,CE$(J);€160,J;:GOTO71S 

730 FORI=396TOB44STEP64:PRINTEI, STRING$ (51,32); :NEX 
750 LPRINTSTRING$ (80,42) :LPRINTTAB (34) "BANCO DE DADOS 
“LISTAGEM DO REGISTRO é "J:LPRINTSTRING$ (80,42) :LPRINT 
760 LPRINTTAB(10)M$ (1) CD$ (3) :LPRINTTAB (10) M$ (2) NM$ (J) :LPRINTTAB (10)M 
$(3)ED$ (3) :LPRINTTAB (10) M$ (4) TL$ (3) :LPRINTTAB (10) M$ (5) BR$ (J) :LPRINTT 
AB(10)M$(6)CI$(3J) :LPRINTTAB (10) M$ (7) ES$ (J) :LPRINTTAB(10)M$ (8) CE$ (9) : 
RETURN 

800 IFN=0,450 ELSEGOSUB3000 

801 PRINTO146, "LISTAR ARQUIVO ( PRINTER )";€512 
>" B:CP=0 

805 FORX=1TON:PRINTES35, X;: IFCL=48,GOSUB880 

815 LPRINTTAB(0) "= "x" TAB(10)M$(1)CD$(X) : LPRINTTAB (10) M$ (2) NM$ (X 
) :LPRINTTAB (10) M$ (3) ED$(X) :LPRINTTAB (10) M$ (4) TL$ (X) :LPRINTTAB (10) M$ ( 
5)BR$(X) :LPRINTTAB (10) M$ (6) CI$(X) :LPRINTTAB (10) M$ (7) ES$ (X) :LPRINTTAB 
(10) M$ (8) CE$ (X) :CL=CL+8:LPRINT:NEXT 

850 LPRINTCHR$ (140) ; : FORW=1TO1O:LPRINTTAB(2) STRING$(30,42)" FIM DA L 
ISTAGEM "STRINGS (30,42) :NEXT:PRINTOS12,M1$;0512,"LISTAGEM COMPLETADA 
";:1GOTO106 

880 LPRINTCHR$ (140) ; :CL=0:CP=CP+1:LPRINTSTRINGS (80,42) :LPRINTTAB (33) 
“BANCO DE DADOS":LPRINTTAB (30) "LISTAGEM DOS REGISTROS";STRING$ (19,32 
); "PAG. ";CP:LPRINTSTRING$ (80,42) :LPRINT: RETURN 

900 IFN=0,450 ELSEGOSUB3000:PRINTÉ150, "CLASSIFICAR ARQUIVO"; 

912 K=0:1=0 

915 PRINTOS12,M1$;:I=I+1 

916 IFCD$(I) <= CD$(I+1),925 

917 T1$=CD$(I) :T2$=NM$ (IT) :T3$=ED$ (1) :T4$=TL$(I) :TS$=BR$(I) :T6$=CIS(T 
) :T7$=ES$(I) :T8$=CES(I) :;GOSUB934 

921 CD$(1+1)=T1$:NM$(1+1) =T2$=ED$ (1+1) =T3$:TL$ (1+1) =T4$:BR$(I+1)=T5$ 
*CI$(1+1) =T6$:ES$(1+1) =T7$:CE$ (1+1) =T8$:K=1 

925 PRINTÉS12,"CLASSIFICANDO ARQUIVO. REGISTRO * ";1 
1,915 

930 IFK<>0,912 ELSEIFDL=1,PRINT6S12,M1$;€512, "ELIMINANDO REGISTRO DE 
LETADO"; ELSE935 

932 N=N-1:FORI=11UN:GOSUB934:NEXT:DL=0 :GOTO935 

934 CD$(I)=CD$(I+1) :NM$ (TI) =NM$ (I+1) :ED$ (1) =ED$ (T+1) :TL$(I)=TL$(I+1): 
BR$ (I) =BR$(1+1) :CI$(I)=CIS(T+1) :ES$(I)=ES$(I+1) :CE$(I)=CE$(I+1) :RETU 
RN 

935 PRINTGS12,M1$; 512, "ARQUIVO CLASSIFICADO"; :GOTO106 

3000 CLS:FORI=153617015421:POKEI,11:POKEI+256,21:NEXT:FORI=15424TO1I5S 
552STEP64:POKEI,210:POKEI+62,205:NEXT:RETURN: 








EIFI$="T",J= 
1, RETURN EL 















ETURN 
:LPRINTTAB (28) 


+ "LISTANDO REGISTRO = 
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sr MAIS SUCESSO PARA VOCÊ! 
fim aah 


Lo, X Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam até você o mais moderno ensino 
JR E técnico programado e desenvolvido no País. 


CURSOS DE APERFEIÇOAMENTO 








São mais de 140 apostilas com informações completas e sempre Métodos novos e inéditos de ensino garantem um aprendizado 
atualizadas, Tudo sobre os mais revolucionário CHIPS. E você prático muito melhor. Em cada nova lição, apostilas ilustradas 

ho ensinam tudo sobre Amplificadores, Caixas Acústicas, Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Medidas 
em Áudio, Técnicas de Gravação e também de Reparação em Áudio 


recebe, além de uma sólida formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro 





CEDM-20 - KIT 

de Ferramentas 
CEDM-78 - KIT 
Fonte de Alimentação 
Sv/vA. CEDM-35 KIT 
Placa Experimental 
CEDM-74 - KIT 

de Componentes. 
CEDM-80 
MICROCOMPUTADOR 
Z80 ASSEMBLER. 


o mama 









CEDM-1 - KIT de Ferramentas. CEDM-2 - KIT Fonte de Alimentação 
+ 15-15/1A. CEDM-3 - KIT Placa Experimental 

CEDM-4 - KIT de Componentes. CEDM.5 - KIT Pré-amplificador 
Estéreo. CEDM-6 - KIT Amplificador Estéreo 40w. 














Você mesmo pode desenvolver um ritmo próprio de estudo. A lin- 
Este CURSO, especialmente programado, oferece os guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
fundamentos de Linguagem de Programação que domina o universo para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 
dos microcomputadores. Dinâmico e abrangente, ensina desde o BASIC equipe de professores sempre muito bem acessorada. Além disso, você 
básico até o BASIC mais avançado, incluíndo noções básicas sobre recebe KITS preparados para os seus exercícios práticos. 

Manipulação de Arquivos, Técnicas de Programação, Sistemas de Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 
Processamento de Dados, Teleprocessamento, Multiprogramação e SOS CEDM por correspondência garantem condições ideais para o seu 
Técnicas em Linguagem de Máquina, que proporcionam um grande aperfeiçoamento profissional. 


conhecimento em toda a área de Processamento de Dados £ 


Você também pode ganhar um MICROCOMPUTADOR. 


Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 
Em poucos dias você recebe nossos catálogos de apresentação. 


=== 
CEDM Avenida São Paulo, 718 - Fone (0432) 23-9674. 
CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 


CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA 








al imçr Solicito o mais rápido possível informações sem compromisso sobre o 
BASIC Científico I 
KIT CEDM:Z80 . ; CURSO de. . 





BASIC Simples 

Gabarito de Fluxograma 
E-4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 














Defenda-se dos tiros inimigos e ao mesmo tempo mire prá valer: mostre que 
você é um craque da artilharia a laser com este jogo para a linha Sinclair 








Laser Base: 
o tiro do canhão 


jogo Laser Base, similar ao jogo 
de flipper deste nome, roda nos 
equipamentos da linha Sinclair e 
é constituído de dois canhões: o inimigo 
(controlado pelo computador) e o do jo- 
gador. O objetivo deste é destruir o maior 
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Armando Neves 





número de inimigos possível, atirando 
com seu laser e evitando acertar os me- 
teoros. 

Para mover seu canhão, você deverá 
utilizar as teclas 5 (cursor para a esquer- 
da) e 8 (cursos para a direita), disparan- 


do com a tecla 0. São 50 os níveis de di- 
ficuldade e, se o canhão inimigo acertar 
o seu três vezes, o jogo acaba. 

O programa tem a estrutura semelhan-: 
te à dos outros publicados. A parte em 
Assembler pode ser digitada com o au- 
xílio do Monitor Assembler publicado 
em MICRO SISTEMAS número 23. São 
cinco blocos de dados hexadecimais, 
que funcionam da seguinte maneira: 

e Bloco 1 (16534) — move o canhão ini- 
migo para o lado mais próximo do joga- 
dor; 

e Bloco 2 (16600) — calcula e atira so- 
bre o jogador; 

e Bloco 3 (16666) — move e faz atirar o 
laser do jogador; 

e Bloco 4 (16764) — movimenta os me- 
teoros; 


e Bloco 5 (16857) — sub-rotina de espe- 
ra, servindo também para apagar os tiros. 


Entre primeiro com os blocos em As- 
sembler e, logo depois, com a listagem 
BASIC. Bons tiros! 





Armando Neves é estudante de Engenharia na 
UFRJ e Informática na PUC, e usuário de um 
TK82-C. 
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Laser Base 


(80)... 
(60). 
(92) 
(87) 





30 POKE 16418,0 
40 LET A$=" 

50 FOR K=1 TO 4 
60 PRI 


76 LET P=2 
80 FOR K=1 
90 PRINT E 
;A$;AS$ 
100 LET P=P+2 
110 TT K 
120 PRINT A$ 
140 LET A=165 
150 
160 
165 
170 
180 
185 
190 
200 
210 
220 
230 POKE 16524,159 

240 LET A=16528 

250 AT 8,31; 

260 GOSUB 300 

270 POKE 16526,0 

280 GOTO 340 

300 POKE A,PEEK 16398 
310 POKE A+1,PEEK 16399 
320 LET A=A+2 

330 RETURN 

340 POKE 16418,2 

350 RAND USR 16534 

360 FOF 20 

370 














DO JOGO 
ES ACEF 


OVAMENTE 2"; 

420 IF INKEY$="" 

430 IF INKEY$= 
PAUSE 9999 
STOP 


RTA 


PRINT A! 10; "LASER BASE" 
5; "ARMANDO LUIZ 


2; "NIVEL DE 

ICULDADE 2? (1/50)" 

INPUT A 

POKE 16828,A*2+10 

CLS 

RETURN 

SAVE "LASER" 

RUN 
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DIF 
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Livraria Poliedro Paraná 


def Computique 


e 


RC Microcomputadores 
MS. » - dá 
ol: 267.859 Rio Grande do Sul 
Pernambuco Advancing 

Eletrônica Isabele ar or 





Minas Gerais 
Computronix 















Alagoas 
Expoente 


São Paulo 
Imarés 





Nordemaq 
se 





é 2 e Brasília 
Memocards Micromega Digitoc 

















hhC3O 
JEUE 


Microcomputadores com crédito direto ou leasing 


COLOR 64 Cr$ 425.000, x 2 (GRATIS APLICATIVOS) 
CP-200 Cr$ 110.000, x 2 (GRATIS 20 JOGOS) 
DGT-1000 Cr$ 268.000, x 3 (GRATIS 20 JOGOS) 
TK-85 Cr$ 115.000, x 2 (GRATIS 16 JOGOS) 
CP-500 Cr$ 690.000. x 2 (GRÁTIS 20 JOGOS) 


CURSOS DE BASIC COM ATÉ 100% DE DESCONTO 
ENTREGA RÁPIDA EM TODO BRASIL 


Aplicativos: controle de estoque; contabilidade: folha de 
pagamento; contas a receber pagar: mala direta: cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. é 

Temos toda linha de periféricos e suprimentos para acom- 
panhar o crescimento de sua empresa 


VISITE-NOS OU SOLICITE UM REPRESENTANTE 


MICRONEWS COMÉRCIO E SERVIÇOS LTDA 
R. Assembléia 10 Gr. 3317 - Ed. Centro Cândido Mendes 
Tel.: (021) 252-9420 - CEP 20011/RJ. 




















“Cobra pega 


a 


Cláudio 


= muito difícil fazer um jogo interessante e simples ao 
E mesmo tempo. Mais difícil ainda é fazê-lo sem usar 
truques e macetes especiais. O jogo que apresento a 
seguir, no entanto, tenta atingir esses objetivos. Ele foi 
elaborado para computadores compatíveis com o Apple, mas 
acredito que será muito fácil adaptá-lo para rodar em qualquer 
outro equipamento que disponha de linguagem BASIC. 
O objetivo do jogo é muito simples: você controla uma cobra 
(representada por uma série de arrobas - O ) que está 
continuamente se movimentando na tela. Em algum lugar 
encontra-se um rato (representado por um asterisco — *). O 
que você deve fazer é guiar a cobra até onde se encontra o 
rato, para que ela o coma. Fazendo isso, um ponto é anotado 
no seu score e à cobra aumenta de tamanho. 
Você tem três chances para comer quantos ratos puder. “Bom, 
mas qual é a dificuldade afinal?”, você perguntaria. O 
problema é que você não pode deixar a cobra colidir consigo 
mesma ou com as beiradas da tela. Também é fatal você tentar 
fazer com que a cobra volte por sobre si mesma, isto é, se a 
cobra está se movimentando para cima, você não pode 
comandá-la para andar para baixo. 
Os controles são os seguintes: 


1 (para cima) 
n 


(para esquerda) e (para direita) 


ee aaa 

JOGO DA COBRA + 

REM * POR: CLAUDIO + 

REM + ESPERANCA + 

REM adesmenenaananaaas 

CLEAR 

MX = 40:My = 22 

DIM SZCMX,MY) IXU CI IVA) 

Boto 100 

HTAB X: VTAB Y: PRINT S$4:S%( 
XY) = Vs RETURN 

RX = INT € RND (1) * (MX- 3) 
D+ Z2RY = INT ( RND (1) + 
My — 3) + 2): IF SUCRX,RY) 
> O GOTO SO 

V= 6SS = “eMix = RXY = RY 
GOSUB 40: RETURN 

X=X+ IXKCKIsY = Y + IVítk)s 
RETURN 

A = PEEK 
28 THEN 


REM 
REM + 


110 
40:Y = Mys 

120 
40X = MX: 

130 NORMAL 

140 N = GL = 44 
so 


co 


€ — 16384): IF A< 4 
RETURN 


to 170 


76 D = 3: RETURN 

BO MTAB 1: VTAB MY + 1: PRINT "R 
ATOS: ";R,"CHANCES: “;C;: RETURN 

100 HOME :5$ = *“ 

FOR X = 1 TO MX:Y = 1: GOSUB 


FOR Y = 1 TO My:X = 15 


FOR 1 = 1 TO 4: 





Cadê o ratinho que tava aqui? A cobra comeu! E, se você for esperto, 
comerá muitos mais, neste jogo para a linha Apple, adaptável a qualquer outro micro 





e," 


Ó'! 


ratO Co. 


Esperança 








Para entrar com O programa num computador Apple ou 
similar, basta digitá-lo tal como está na listagem a seguir. Para 
adaptar o jogo para outros computadores, vale a pena dar 
algumas dicas: 

1) MXe MY são, respectivamente, a largura da tela (40 
colunas) e o número de linhas menos 2 (22 linhas). Se o seu 
display é diferente, basta modificar estes valores. 

2)HTAB < n> e VTAB « n > são os comandos usados no 
Apple para posicionar o cursor numa determinada coluna 
(HTAB) de uma determinada linha (VTAB). 

3) A sub-rotina que vai da linha 70 até a linha 76 simplesmente 
verifica se foi apertada alguma tecla (é para isso que servem 

os PEEKSs). 

4) O comando INVERSE faz com que os caracteres impressos 
na tela apareçam pretos em fundo branco; o comando 
NORMAL serve para cancelá-lo, voltando os caracteres a 
aparecer brancos em fundo preto. Se o seu computador não 
possui comandos semelhantes, retire-os e substitua o branco 
atribuído a S$ na linha 100 por um caráter qualquer que fique 
bem para delimitar as beiradas da tela. 





Cláudio Esperança é formado em Engenharia Eletrônica pela UFRJ. Foi 
analista e professor do Núcleo de Computação Eletrônica desta mesma 
universidade durante quatro anos. Atualmente trabalha como analista 
de sistemas na empresa de processamento de dados da Previdência So- 
cial (Dataprev) e é professor de BASIC no Instituto ORT. 


191 K = D: GOSUB 60:HX = X:HY = Y 
200 1FN 
300 
K = SACTX, Ty) = TXY = TS 
$ =" "4V = O GOSUB 40 
GOSUB 60:TX = X1TY = Y 
IF SúK(HX,HY) = O GOTO 190 
IF SK(HX,HY) = 6 THEN PRINT 
CHR$ (7);:l = L + 4:N = 44R 
= R + 1: GOSUB SO: GOSUB 80 
: GOTO 190 
FOR 1 = 1 TO 10: PRINT CHR$ 
(7)3: NEXT 10 = C —- 1: GOSUB 
Bo: IF C O THEN GOTO 350 
HOME : INPUT “QUER JOGAR NOV 
AMENTE (S/N) 7 "AS: IF LEFTS 
(AS,1) = "S* THEN GOTO 5 
“ADEUS !! “: END 
sTYDIX = TXsY = TYIS 
v=0 


> O THEN N = N- 14 GOTO 
210 
220 


300 
310 


“sV = Ss INVERSE 


GOSUB 40: NEXT 
GOSUB 
GOSUB 40: NEXT 
R = OC= 3 GOSUB 


READ IXú(I)s 











71 B = PEEK 
00 GoTO 
72 RETURN 
73 D = 4; RETURN 
74 D = 2: RETURN 
75 D = 1: RETURN 


€ — 16368): ON A - 2 
73,74,75,72,76 


READ IYK(I): NEXT 

DATA 1,0,-1,0,0,1,0,-1 

HX = 22HY = 2:TX = 2:TY = 2:D 
= 1: GOSUB SO 

GOSUB 70:X = HX1Y = Hy:S$ = 
“GV = D: GOSUB 40 


180 
185 


190 


GOSUB 40: GOSUEB 60:kK = SK(X, 
Yo: IF K< S ANDK > O GOTO 
360 

X = RXY = 
GOSUB 40 

N=L:D= 


Ry:S$ =" “V = Os 


1: GOTO 185 
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A Remtronic 2000 
é uma máquina de 
escrever eletrônica 
tão avançada, mas 
tão avançada, que 
consegue ser mais 
simples que a sua máquina 
de escrever. 

Como é que pode? 

E que a Remtronic 2000 

é o resultado da mais 
revolucionária tecnologia 
Remington, que veio tornar 
o trabalho da secretária 
mais fácil, prático e rápido. 
A Remtronic 2000 faz coisas 
que você nem imagina. 

* Ela coloca 
automaticamente o papel na 
posição inicial da 
escrita. 

e Faz o alinhamento 
automático 

à margem direita. 

e Graças ao sistema 
de “margarida” 
intercambiável, 
você pode trocar de 


automática 
do papel 





tipos sem sujar as 

mãos e sem perder tempo. 

* À Remtronic 2000 é a 

única que tem em seu 

cartucho a fita de 

impressão e a fita corretiva, 

que já vem embutida. 

e Você pode 

' escolher entre 
4 4 formas de 

escrita: normal, 

negrito 

normal 

sublinhado, 


ublinhado. 







po 


Sublinhado 
simultâneo 


ou negrito s 


E osub 
simultâneo. 
* Ela pode apagar 
automaticamente uma linha 
inteira. 

* Seus dedos podem ser tão 
ágeis quanto 
seu raciocínio, 


|» q ea 
| emtronic 


acompanha. 
Ela é veloz 
como um 


ado é 





Negrito 
automático 











XXX msamento, pode 


ter até 17,5 
caracteres por 
Tecla de segundo! 
repetição e Tem memória de 


elefante. Sabe de 
cor todos os ajustes que 
você fixou. À Remtronic 
2000 tem tanta novidade, 
mas tanta novidade, que 
não dá pra contar aqui. 


Mas a melhor delas é que 
agora ela também poderá 
PT ser usada como 
+é terminal de 
computador, com o 
uso de um interface 
'ç apropriado. 
Ig à Remtronic 2000. 


Tão completa. Tão 


Tecla 


polivalente 


REM 155300) 11(c2000 
A POLIVALENTE DA 
REMINGTON. 














8) REMINCTON 


SEMPRE UMA NOVA IDEIA 


N3Quve 


Rebata a bola com precisão, mas não se preocupe em ganhar um set. Neste jogo para 
a linha TRS-80 (1ll) você usará a raquete para demolir os blocos à sua frente 








Bola demolidora... 
rebata essa! 


Luiz Gonzaga de Alvarenga 





ste é um jogo capaz de distrair tanto adultos quanto 
E crianças por horas a fio. Nele, uma bola é rebatida 

dentro de um campo com o objetivo de demolir uma 
série de paredes paralelas. A demolição é efetuada bloco a 
bloco, havendo um número limitado de bolas para fazer isto. 
Existem quatro níveis de dificuldade, do mais fácil para o mais 
difícil. A dificuldade é tanto maior pelo aumento do número 
de paredes (com o consequente aumento de blocos a serem 
demolidos) quanto pela diminuição do número de bolas. 
Além disso, o tamanho da raquete é variável e a velocidade da 
bola não é constante (cada bola tem. uma velocidade 
diferente). 
Outro atrativo do jogo é que ele possui rotina de som. Esta 
rotina é própria para o BASIC disco, mas pode ser modificada 
para o BASIC residente. Para isto, basta trocar o conteúdo da 
linha 820 por: 


820 Z21=127:P0KE16526,235:POKE 
16527,21:2=256*21+235 


e gravar O programa em fita cassete. 

Este programa foi publicado, originalmente, na revista 
norte-americana 80 MICRO. Esta versão, no entanto, além de 
traduzida, foi modificada e aperfeiçoada (a versão original não 
possui, por exemplo, mais que um nível de dificuldade). 
O programa, embora escrito em BASIC, tem um bom 
desempenho, inclusive no tocante à velocidade. As teclas que 


controlam a raquete são as setas para cima e para baixo. Se, 
após começado o jogo, ela não aparecer, basta apertar a tecla 
da seta para baixo. 








Luiz Gonzaga de Alvarenga é técnico em Telecomunicações, trabalhan- 
do na Embratel em Goiânia, onde reside. 














SUPRIMENTO É COISA SÉRIA 


e Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 





CENTRALDATA 


Com. é egresentaçães Ltda. 


Discos Magnéticos: 5 Mb, 16 Mb, 80 Mb etc 





Diskettes: 5 1/4, e 8 Polegadas — Simples e Dupla Face 


ETIQUETAS PIMACO — PIMATAB 


] e Fita Magnética: 600, 1200 e 2400 Pés 

e Fita CARBOFITAS p/Impressoras: Globus M 200 — B 300/600 
e Fita p/Impressoras: Elebra, Digilab, Diablo, Centronic etc 

* Cartucho Cobra 400 

* Pastas e Formulários Contínuos. 












AV. PRESIDENTE VARGAS, 482 - GR. 207 - TELS.: (021) 263-5876 - 253-1120 - RJ 
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DEFINTA-YsCLSsGOSUB61O 
GOSUEBSZ0 
CLSsPRINTEZ69. "GRAU DE DIFICULDADE: 


- MUITO FACIL 
- MEDIO 
- DIFICIL 
“ MUITO DIFICIL” 
vo ES=INKEYS: LFES=""THEN4O 
SO IFES>"U"ORES<"I"ORES=CHR$c 13) THENHC 
60 [FES="1"THENVS=0:ZZ=149:60TO110 
70 IFES="2"THENZZ=149:GOT0100 
99 1FE “THENVS=0:72=191:G0TO110 
90 IFES="4"THENZZ=191 
190 4S=9 
110 CLSsAS=CHR$(191):85=CHR$ (1284 
120 RANDON: X=RND(1514105Y=RND(10)+10:6=323:7=G:M=13N=1 
130 L=15427 s 
140 RANDONsA=RND(S)-5:B=RNDCS)-33 LFA=O0RB=0THENT4O 
150 GOSUB43C 
160 G0TOS6O 
170 X=X+4A: T=V4B 
130 G0SUB270 
IF Y<3ORY>44 THENB= "Bs JJ=USR(12)26070170 
IFX>126THENA=-A:X= 1263 JJ=USR (1226070170 
IFX<OTHENA= As JJ=USR(12) 36070170 
IFX>ISANDPOINT(X. Y=-1THENSOO 
IFX<LOANDPOINT CX» Y1=-1THENA=-As JJ=USR(12):60TO170 
IFX<3ANDPOINT(X, Y)<>—1THENSSO 
RESETCH, NI SSETOX 1) 3M=XaN=Y 
6070170 
R=PEEKCIW44ZOY 
IFR=0RE TURN 
GL 
IFR=BTHENL=L-óM4: [FLCISUZ7L=L tól4s JK=1 
IFR=16L=L 4642 IFL>16319L=L 643 JK=] 
POKEL, 149: LF JK=1THENJK=0 RETURN 
IFVS=9THENPOKEL , 1485 TF JK=1 THENJK=03 RETURN 
POKEG, 32:5RE TURN 
1FZ2=1911HEN370 
PO=PO+1z IFPO=127HEN4ZOELSES8O 
PO=PO41:1FPO=6THENYZO 
RANDOM: X=RND(10)+25:Y=RND(101+25 
FORYO=1 T01000:NEXT 
PRINTOZS1,PO+Ls 
RANDOM: A=RND(2)-3:B=RND(2)-3: LFA=OORB=0THEN4IOELSE 170 
PRINTEZS6. "BOLAS ESGOTADAS”: :GOTO790 
IFZI=191 THEN4SO 
FORO=1TD14:FORT=30TOYSSTEP2:60TONGO 
FORO=1TO14sFORT=30TO4BSTEPZ 
POKEcQu6M4+T)+15360, 191:NEXTT.O 
FORR=1T0127:SET(R, 45): SETCR. 2): NEXT 
FORF=27045: SET(127,F ) NEXT - 
RETURN 
A=-a 
P=INTOX/2)+INTOY/5)nóy 
FRINTEP,B$y3 JJ=USRC1Z) 
LOsL0+1 
IFZZ=191ANDLO=140THENCLS:GOTOB1O 
IFLO=112THENCLS:GOTOB1O 
PRINTO4B, "BLOCOS FORA"s 
PRINTOLBS, "BOLAR" 
PRINT9ZS1 POIS 
PRINTGLIS.LOs 
6070170 
Kitts 
PRINTCHRS(23) 
PRINTOKK,” nu xx DEMOLICAD uuu = 
FORX=1TO64sPRINTOKK+X," "7 2FORP=1 TOUS: NEXTENEXT 
FORZX=1T01000:NEXT 
FORX=0T0127:SET(X. 0) 2SET(X. 47): NEXT 
FORY=0TOW7I SET (O, 113 SET(127.Y) NEXT 
PRINTEZ1S, "INSTRUCOES” ; 
FRINTOI94. "NESTE JOGO, O JOGADOR DEVE DEMOLIR COMPLETAME 


PRINTONSS. "TE AS PAREDES QUE O SEPARAM DA PARTE INTERNA 


710" PRINTOS22, "QUADRA, REBATENDO A BOLA DEMOLIDORA. NOS NIVE 
520" PRINTASA6, "1 E 2. EXISTEM 12 BOLAS DISPONIVEIS: JA” NOS 

250º FRINTOSSO."VEIS 3 E 4. HA SOMENTE 6 BOLAS DISPONIVEIS, 

740" PRINTAZ1M.ºHO TAMBEM AUMENTA O NUMERO DE PAREDES. ELEVAN 
930'PRINTA778."0 GRAU DE DIFICULDADE DO JOGO."s 

760 PRINTEP4O."<ENTER>": 3 FORX=1TOSOs:NEXT 


770 IFINKEYS=""THENPRINTO94I "73 FORX=1T035:NEXT:60TD76 
c 

780 RETURN 

790 FRINTOU4B, “APERTE <ENTER> PARA NOVO JOGO": 

B00 IFINKEYS<>CHR$(13)THENGOVEL SEPO=0:L0=0:GOTO3O 

810 PRINT"PARABENS! VOCE LIMPOU COMPLETAMENTE A QUADRA!" :GOT 
0790 

820 DEFUSRO=32000:7=32000 

650 READE: IFE>OPOKEZ, B:Z=7+1:G0T0830 

B40 DATAZOS, 127,10.62.5,211.255.69,16,254,62.4,211,255,69,16 
+254.37.20.239.201.-1 

850 RETURN EH 
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COMPUTADORES LTDA. 


* Microcomputadores 
Microdigital, Prológica e Similares Apple. 

* Aulas de Basic 

* Monitores, Impressoras 

* Programas de Contabilidade, aplicativos, jogos, etc. 

* Pacotes de programas para a área de Advogados, 
Open Market, Dentistas, Administração de Imóveis 

* Programas para Engenharia, Arquitetura, 
Controle de Construções, etc. 

* Elaboração de programas por encomenda. 

* Personalização de programas para firmas e 
profissionais liberais. 

* Jogo Odissey/Dactari. 

* Manutenção e Transformação de Televisores 

* Revistas e Publicações Técnicas 

* Amplo Financiamento 

* Despachamos por nossa conta via Varig. 


TEL.: 64-0468 
Alameda Lorena, nº 1310 - CEP 01424 


São Paulo 
* ESTACIONAMENTO PARA CLIENTES *** 





“"VOCÊQUERSER 
COLABORADOR 
DE MICRO SISTEMAS? 


Para entrar nesse programa, é 
só seguir as instruções: 

e Escreva um texto datilogra- 
fado explicando qual a utiliza- 
ção do seu programa, e junte 
exemplos de aplicação. Aten- 
ção: é imprescindível que a lis- 
tagem seja datilografada. Se 
for possível mande também, 
junto com a listagem datilo- 
grafada, uma fita cassete ou 
disquete com o programa; 

e Se for artigo, use a máqui- 
na de escrever em espaço dois 
e meio, com setenta toques 
por linha e trinta linhas por fo- 
lha. Caso haja necessidade de 
desenhos e ilustrações, deta- 
lheos o máximo possível; 

e Releia atentamente sua 
colaboração para micros ou 
calculadora, veja se não falta 
nenhuma informação (qual 
equipamento, em que configu- 
ração etc.), e remetaa, em 
duas vias, para a equi de 
MICRO SISTEMAS analisar; 

e Não se esqueça de mandar 
um breve currículo, seu nome, 
telefone e endereço completo. 


Envie para REDAÇÃO — 
MICRO SISTEMAS, Rio ou 
São Paulo: Rua Visconde Sil- 
va, 25, Botafogo, CEP 22281, 
Rio de Janeiro — RJ; Alame- 
da Gabriel Monteiro da Silva, 
1227, Jardim Paulistano, CEP 
01441, São Paulo — SP. 


sisttico 





— Cursos de programação com 
APOSTILA PRÓPRIA e AU- 
LAS PRÁTICAS em diversos 
MICROCOMPUTADORES 

— Todas as principais marcas 
de MICROCOMPUTADORES 
pelo menor preço com crédi- 
to direto em até 24 MESES 

— Programas prontos ou por 
encomendas tanto de jogos 
quanto comerciais 


MICROCENTER INFORMÁTICA LTDA. 
Rua Conde de Bonfim, 229 - Lojas 320 e 
312 — Galeria Cinema III - Tel.: 228-0593 
= Cep 20520 - Tijuca - Rio de Janeiro - RJ 


INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMÁTICA 


CURSOS 
LINHA IBM (Apoio Marcodata) 
OS/VS1 — VSE — VM/CMS — VSAM 
CICS — DL/1- COBOL: TÉCNICAS E 
OTIMIZAÇÃO 


MICROINFORMÁTICA 
BASIC — ASSEMBLER — 
LOGO — CP/M — VISICALC 
dBASE Il —- WORDSTAR 


PASCAL 


FORMAÇÃO DE PROGRAMADORES 
DURAÇÃO: 9 MESES 


CPD-ORT: IBM 4341 COM TERMÍNAIS 
LABORATÓRIO DE MICROS 


TREINAMENTO IN HOUSE 


SOLICITE INFORMAÇÕES E 
FOLHETOS EXPLICATIVOS 

PAR RO jon pio leio) 
246-94 


RUA DONA MARIANA 


TELS.: 226-3192 








CUIrSsos 


e O Instituto Psicodinâmico de Idiomas está 
oferecendo um curso intensivo de BASIC para 
principiantes. O curso abrange os níveis | e Il, 
com duração de duas semanas (carga horária 
de 11 horas semanais). Os micros utilizados 
são CP-500 e os da linha Sinclair. Maiores in- 
formações na Rua Martiniano de Carvalho, 
200, tel.: 284-3912, São Paulo, SP. 


e Técnicas de Organização & Métodos, Me- 
todologia para Desenvolvimento e Documen- 
tação de Sistemas, Elaboração e Análise de 
Formulários, entre outros, são os cursos que a 
Didata está oferecendo. Para maiores informa- 
ções telefone: (011) 34-3195, São Paulo, SP. 


e A ADP Systems Empresa de Computação 
está oferecendo diversos cursos para o mês de 
janeiro: Básico/Lógica Estruturada; COBOL 
A. N. S.; DOS/VS; Módulo Alternativo; As- 
sembler; Básico Operação; OCL/3; Digitação, 
BASIC CP/M. A ADP Systems oferece horá- 
rios pela manhã, tarde e noite e também nos 
fins de semana. O endereço da ADP é Rua 
Santa Isabel, 305, tel.: (011) 223-7511, São 
Paulo, SP. 





e Introdução aos Microcomputadores e Pro- 
gramação BASIC são os dois cursos que a Da- 
tamicro Informática está oferecendo. Estes 
cursos têm turmas e horários especiais tam- 
bém para crianças de B a 13 anos e jovens de 
14 a 18 anos. Informações e inscrições Centro 
Cultural Cândido Mendes, Rua Joana Angéli- 
ca, 63, Ipanema, tel.: 267-7098, Rio de Ja- 
neiro, RJ. 


e A Mikro Informática aceita inscrições para 
os seguintes cursos: Informática para Jovens; 
Operação e Programação de Microcomputado- 
res — Linguagem BASIC para Crianças. Várias 
opções de horário. Informações na Av. Afon- 
so Pena, 952, sl. 627, tel.: (031) 222-3035, 
Belo Horizonte, MG. 


e A Microrei Informática realizará, nas fé- 
rias de janeiro e fevereiro, cursos intensivos 
com 12 horas de aula sobre Programação BA- 
SIC Aplicada aos Micros e que não exigem co- 
nhecimentos anteriores de microprogramação. 
São cursos essencialmente práticos e apostila- 
dos. Horários: 9:00, 14:00 e 19:30h. Informa- 
ções na Rua Pinheiros, 812, tel.: 881-0022, 
São Paulo, SP. 


e A UFRJ está oferecendo cursos sobre as 
seguintes linguagens: C, Pascal, Assembler, 
BASIC, FORTRAN, ALGOL, além de um 
curso de Banco de Dados. Para maiores in- 
formações, dirija-se à Secretaria de Cursos, si. 
C-1010 do Núcleo de Computação Eletrônica 
no bloco C da Cidade Universitária. Tel.: 290- 
3212, r: 224, Rio de Janeiro, RJ. 


e A FUNDEP e a Universidade Federal de 
Minas Gerais estão oferecendo os seguintes 
cursos para janeiro/fevereiro: Curso BASIC, 
Curso CP/M, Curso FORTRAN, Curso Pascal, 
Curso VisiCalc, Programação de Computado- 
res COBOL, Curso de Introdução à Programa- 
ção de Computadores. Informações na Av. 
Antônio Carlos, 6627, Pampulha, tel.: 441- 
4980, Belo Horizonte, MG. 


e Manutenção do Microcomputador Pessoal 
DGT-100/1000, Projeto de Interfaces para Mi- 
crocomputadores, Microprocessador 8086/ 
8088, Controle de Processos são os cursos que 
estão sendo oferecidos pelo Centro Brasileiro 
de Informática, Av. Passos, 115, sl. 215, tel.: 
(021) 2331123, Rio de Janeiro, RJ. 
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e A MICRO'S Processamento de Dados pro- 
move regularmente cursos de programação 
BASIC e COBOL. Para o curso BASIC são uti- 
lizados dois microcomputadores Dismac e um 
NE-Z8000, com horário individual para trei- 
namento. As turmas são compostas de, no má- 
ximo, 20 alunos e todo material didático é 
fornecido pelo curso. Maiores informações 
na Rua Duque de Caxias, 450, Edif. Chams, 
sis. 702 e 703, tel.: (034) 235-6965, Uberlân- 
dia, MG. 


e A Data Record Cursos de Processamento 
de Dados está promovendo cursos de BASIC 
e COBOL. O primeiro de 50 horas e o segun- 
do de 120 horas. As turmas são de, no máxi- 
mo, dez alunos, com 60% de aulas práticas. 
Cursos especiais de férias pela manhã, tarde e 
noite e inclusive nos fins de semana. Informa- 
ções na Av. Santo Amaro, 5450, Brooklin, 
tel.: (011) 543-9937, São Paulo, SP. 


e A Dutra Informática oferece vários cursos 
de Informática, entre eles: Introdução às lin- 
guagens BASIC, COBOL, FORTRAN, Assem- 
bler, RPG, Pascal; Sistemas e Computação pa- 
ra não-especialistas; Introdução ao Hardware 
de Microprocessadores, etc. A Dutra também 
oferece palestra e seminários. Maiores infor- 
mações na Rua 1, n? 444, Rio Claro, São 
Paulo, tel.: (0195) 34-8922, SP. 


e A Pró Eletrônica oferece cursos e pales- 
tras sobre Microinformática, Linguagem BA- 
SIC, Sistemas Operacionais e Aplicativos (Vi- 
siCalc, Magic, Window, Profile, etc.). As vagas 
são limitadas por cursos e o material didático 
é oferecido gratuitamente. Informações na 
Rua Santa Efigênia, 568, tel.: 221-9055, São 
Paulo, SP. 


e A CompBel promove os cursos: Introdu- 
ção a Microcomputadores para estudantes de 
nível colegial, BASIC | e BASIC || e VisiCale- 
Plus com traçado de gráficos. Informações na 
Rua Gregório Paes de Almeida, 62, Vila Mada- 
lena, tel.: (011) 65-9857, São Paulo, SP. 


e A Benny Feira Permanente de Microcom- 
putadores está oferecendo cursos de férias pa- 
ra crianças. Os cursos de BASIC têm um livro 
especialmente elaborado para crianças que 
aprenderão brincando e se divertindo com os 
micros, os professores são treinados para es- 
se fim. O curso terá a duração de dez diase o 
preço é de Cr$ 45 mil, já com o material di- 
dático incluído. Maiores informações na Rua 
Domingos de Moraes, 407, tel.: (011) 570- 
1555, Vila Mariana, São Paulo, SP. 


SEMINÁRIOS 


e A Execom Desenvolvimento Empresarial 
realiza em sua sede, no Rio de Janeiro, se- 
minários sobre aplicações de microcompu- 
tadores nas áreas de Finanças, Planejamento, 
Marketing, Produção, Pessoal, entre outras. 
Estes seminários, diurno e noturno, duram 16 
horas e oferecem o uso de um micro (compa- 
tível com o Apple) para cada participante. As 
turmas têm, no máximo, nove pessoas, com 
aplicações dos mais famosos softwares básicos 
para micros. Maiores informações pelos tele- 
fones: (021) 252-4946 e 252-3418, Rua do 
Ouvidor, 121/219 and., Rio de Janeiro, RJ. 





e Para informar ao leitor sobre os cursos que 
estão sendo oferecidos, a revista recolhe in- 
formações em diversas instituições ou as rece- 
be pelo correio. Portanto, não nos responsabi- 
lizamos por quaisquer alterações posterior- 
mente efetuadas por estas instituições nos 
programas ou preços 
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O que você acha de pilotar um PC 1500 
numa emocionante corrida de Fórmula 1? 


Carcuito 


de Fórmula 1 





Daniel José Burd 





este circuito você será o piloto, 

determinará o número de voltas 

da corrida, a direção, o sentido e 
a velocidade de seu carro. Para engatar a 
marcha lenta (isto é, o carro andará 
apenas uma coluna ou quadradinho por 
vez), tecle z; para engatar a marcha 
média (isto é, o carro andará duas 
colunas por vez), tecle x; e, finalmente, 


para engatar a marcha rápida (isto é, o 
carro andará três quadradinhos por 
vez), tecle c. 

Para que seu carro ande para frente, 
tecle e mantenha o teclado 6; para andar 
para trás, para cima e para baixo, tecle o 
4,08€0 2, respectivamente. 

Caso você não seja um ás no volante e 
venha a bater nas grades de proteção, 


será obrigado a começar novamente a 
volta; portanto, cuidado! 

Assim que tiver completado a última 
volta, seu tempo aparecerá no visor. 





Daniel José Burd está cursando o terceiro ano 
do 2º grau do Colégio |. L. Peretz. Possui um 
PC 1500 da Sharp e um NE-Z8000, nos quais 
desenvolve programas. 





S:REM CORRIDA DE 
FORMULA 1 
6:REM NA MATRIZ 

T(<85) FICARA O 
DESENHO DA PI 
STA 
18:DIM T(85)> 
2B:WAIT 180:PRINT 
"A CORRIDA VAI 
COMECAR" 
38: INPUT "QUANTAS 
VOLTAS?";0: IF 
OXIPRINT "QUE 
GRACINHA" 
40: REM DESENHO DA 
PISTA 
45:CLS 
50: DATA 23, 17, 23, 
9, 11, 18; 26, 18, 
22, 28,23, 17,29 
15,5,5, 125,69, 
59, 81,81,81,95 
» Ba, 88 
68:DATA 26, 182, 11 
5, 89, 77, 69, 69; 


69 

65:DATA 85, 81, 81, 
95, 80, 86, 82, 90 
» 74, 1B6, 24, 90; 
98, 98, 66, 126, 8 


8 

, 

78:DATA 67, 68; 22; 
95, 65, 125,5,29 
» 12, 17,23,23 

8B:FOR 1=BTO 24 

98: READ TCI> 
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Corrida de Fórmula 1 


100:NEXT 1 

118:FOR 1=25TO 33 

128: READ TC1)> 

199:NEXT 1 

149:FOR 1=57T0 24 

158:READ TC1) 

169:NEXT 1 

1728:FOR 1=75T0 85 

188:READ TC1) 

198:NEXT 1 

208:FOR 1=34T0 56 

210: Tc1)=85 

220:NEXT 1 

225: V=1 

230:WAlIT B:FOR P=8 
TO 8s 

248: GCURSOR P: 
GPRINT TCP) 

250:NEXT P 

268:REM O=NUMERO 
DE VOLTAS 

278: CURSOR 22: 
PRINT O 

280: REM P=POSICAO 
DO CARRO: D=AL” 
TURA DO CARRO: 
K=NUMERO DE T 
ROMBADAS 

298: P=0: D=8:K=0 

388:REM SUBROTINA 
4828 CONTEM O 
CRONOMETRO 

319:FOR I=1TO 2 

328: 1F P>BSLET 0=0 
-1:1F O=9PAUSE 
"CHEGADA": 


GOSUB 48800: H=F 
-6: IF O=BPRINT 
"SEGUNDOS" ;H 
325: 1F O=BEND 
338: IF P>8SLET P=8 
: CURSOR 22: 
PRINT O 
340:REM AS CONTER 
A A VELOCIDADE 
E DIRECAO 
350:0$8="":X=B:WAIT 


2 

360:REM BE A REU 
NIAO ENTRE A P 
ISTA E O CARRO 

328:0=T(P):B=AOR D 

388: GCURSOR P: 
GPRINT B 

390:0$=INKEY$S 

408: IF AS<>""GOTO 
468 

418: GCURSOR P: 
GPRINT A 

428: AS=INKEYS 

438: IF AS<>""GOTO 
asa 

440:NEXT 1 

458:GOTO 598 

454:REM A SEGUIR 
SERAO EFETUADA 
S AS MUDANCAS 
DE VELOCIDADE 
E DIRECAO 

455:REM Z=VEL.LEN 
TA X=VEL.MEDIA 
C=VEL. RAPIDA 





: GCURSOR P: 
GPRINT A 

2 IF As="X"GOTO 
488 

GOTO 438 
iU=2:T=2 

:1F AS="C"GOTO 





=(INT (<D+1)/2 
2274: GOTO 598 
:1F As="2"LET D 
=(2xD)xU: IF D> 
64LET D=64: 
GoTo 538 

:1F As="6"LET P 
=P+1+T:GOTO 59 





LET P=64:GOTO 
so 
589:GOTO 448 
585:REM A=INTERSE 
CCAO ENTRE O € 
ARRO E A PISTA 
598: IF P>85GOTO 32 
B 


595:0=DAND TCP) 
688: IF A=BGOTO 318 


WAIT 190. BEEP 
18, 250, 20. K=K+ 


1 


:PRINT "QUE E 


RRO “, KELET 
P=8: 
61IS:WAIT B:CLS 
628:FOR Q=BTO 85 
6393: GCURSOR Q; 
GPRINT TCQ) 
648:NEXT Q 
658: CURSOR 22: 
PRINT 0:GOTO 3 
18 


4000:REM AQUI FI 


4Ba1: 


4018: T$=STRS TIME 


4020: 


4030: 
4940: 


4058: 
4950: 
4965: 


4028: 


CARA O CRONO 
METRO 
WAIT 2 


V=CINT (TIME 
> 

R$=STR$S U 
Ds=RIGHTS (B 
8,1) 

J=(CUAL T$)- 
U)x19998 
D$=STRS J 
OS=CRIGHTS « 
D$, 22): A=VAL 
Gs 

F=VAL CCUAL 
C$)x3698)+( 
VAL CLEFTS € 
DS, 2)))x68xA 


: RETURN 











Engane o teclado de seu micro compatível com o Apple e faça-o dançar 
conforme a sua música. Aqui, um utilitário “de bandeja” para você 








Um teclado 
a moda da casa 


Carlos Alberto Diz 





om um mínimo de trabalho, e graças ao utilitário for- 

necido neste artigo, você poderá redefinir o teclado de 

seu micro (se ele for compatível com o Apple). Para 
quê? Bom, antes de tudo para brincar, que é a principal moti- 
vação de um bom fuçador de micros. Mas como sempre acon- 
tece, de tantas brincadeiras, acaba surgindo algo de útil. 

Por exemplo: se você não tiver um teclado numérico, pode 
simular um, fazendo com que as teclas R, T, Y, F,G, H, V 
B, Ne a barra de espaços gerem os dígitos 7, 8,9,4,5,6,1, 
2,3 0, respectivamente. Colocando umas etiquetas nas te- 
clas, você terá um teclado numérico. 

Você também pode transformar o lay-out do tradicional te- 
clado “QWERTY” (das seis primeiras teclas da segunda fila, 
começando de cima) em algo mais prático e eficiente, como 
sugeriu Dvorak ao criar o teclado que leva seu nome. 

Infelizmente, o teclado Dvorak foi criado para ser usado 
com o idioma inglês, e duvido que proporcionasse a mesma 
eficiência quando usado com o português. Mas isto não impede 
que você inicie um estudo estatístico sobre a frequência de 
ocorrência das letras do alfabeto na língua portuguesa para, 
quem sabe um dia, lançar no mercado o teclado Dvorak- 
Tupiniquim... 

Mas voltando ao nosso assunto, uma grande aplicação é, 
sem dúvida, a redefinição de certas teclas para que, em lugar de 
caracteres individuais, gerem macroinstruções. Assim, por 
exemplo, ao teclar CTRL C, aparecerá a macro CATALOG; 
ou, ao teclar, CTRL L, aparecerá a macro LIST, e assim por 
diante. Enfim, existem várias aplicações para um teclado rede- 
finido, e o limite é a sua imaginação. 


O MAPA DA MINA 


Depois de deixar todos com água na boca, sinto a tentação 
de formular a fatídica frase: “... detalhes no próximo núme- 
ro...” , mas como acho que seria difícil garantir minha incolu- 
midade frente a um bando de leitores enfurecidos, passo a 
contar o segredo em seguida. 

O Apple, esta máquina maravilhosa (satisfeito, Freitas?!) — 
e com ele todos os Apple compatíveis —, usa, para permitir a 
entrada de informação via teclado, uma rotina chamada 
KEYIN, rotina esta que reside na ROM, mais precisamente a 
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partir do endereço S$FDIB. Ela inicia, ao ser pressionada uma 
tecla, uma série de processos consecutivos a cargo de várias 
outras rotinas da ROM, terminando na aceitação e reconheci- 
mento da tecla ativada e na geração do caráter correspondente. 

Para redefinir o teclado é, portanto, suficiente alterar esta 
rotina para que, seguindo instruções previamente fornecidas, 
ela transforme o caráter normalmente gerado por uma dada 
tecla no caráter que desejamos, permitindo que as demais ro- 
tinas que seguem nunca percebam a modificação feita no te- 
clado. Porém, não é possível alterar diretamente instruções que 
se encontram na ROM, pois esta memória (Read Only Memo- 
ry) não aceita input. 

Fuçando na memória do computador, descobre-se que exis- 
te uma área na RAM, mais exatamente as posições KSWL e 
KSWH ($0038 e $0039), que normalmente contém o endere- 
ço de entrada de KEYIN. Ou seja, para chamar KEYIN, o sis- 
tema procura, nestas posições, o endereço de entrada desta ro- 
tina. Como são endereços da RAM, podem ser 
alterados por algo tão elementar como um POKE, existindo, 
porém, maneiras infinitamente mais complexas de se fazer a 
mesma coisa, como os programadores de Assembler gostam de 
nos ensinar. 

Se escrevermos uma rotina em linguagem de máquina 
para substituir KEYIN que cumpra com os nossos E 
e colocarmos o endereço de início desta coluna em ; 
no lugar do endereço de início de KEYIN, então o computa- 
dor nunca descobrirá que o enganamos, e usará nossa rotina 
como se fosse a própria KEYIN. 

Resumindo, precisamos de uma rotina substitutiva de 
KEYIN que: 

e compare o caráter correspondente a uma tecla pressionada 
com uma dada tabela referencial para ver qual o caráter (ou 
macroinstrução) que substitui o caráter original da tecla, e 

e substitua o novo caráter (ou macroinstrução) pelo caráter 
original e volte às rotinas normais como se nada tivesse acon- 
tecido. 

Isto feito, precisamos de um programa para criar uma tabe- 
la de redefinição do teclado e, finalmente, de um programa 
que implemente esta loucura toda. 

A rotina substitutiva tem que ser em linguagem de máqui- 
na (que horror!!), e pode ser colocada numa área da RAM mui- 
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1F ASC <A$) ) O AND ASC (AS) «< 27 THEN 1 
PRINT CHR$ < ASC (AS) + 64); NORMAL 
Verena antena ranan nana GOTO 2090 
É DEFINE PRINT AS:: HTAB 10 
PROGRAMA DE CRIACAO DE AS). z3 
TABELAS DE RE-DEFINICOES AND C = O THEN 2060 


“a THEN 2150 
CHR$ (13) THEN OS = "a" 


ASC <B$S) + 128 


+ 
CHR$ (0):D$S = 
GoTc 5000 
HOME INVERSE PRINT ATRIBUICAO 
ARACTERES e NORMAL 
PRINT “TECLE A TECLA QUE VOCE QUER REDEFINI 
PRINT "E DEPOIS O CARACTER À SER ATRIBUIDO à 
RINT “ESTA TECLA. (PARA SAIR TECLE '6')" 
INVERSE PRINT “TECLA” HTAE 10 PRINT “E 


“coro 2100 
1. ASC (Cs+ 


128 THEN 2060 
“A TABELA DE MACROS ESTA' CHEIA 11" 


omosunrocouaD agua 
» oS9009 


PRINT “INDIQUE QUAL NOME DEVE SER ATRIBUIDO 
INPUT “A TABELA QUE ACABA DE SER CRIADA “;AS 
IF AS = "º OR AS = * “ THEN PRINT "NOME IN 
DO tt": GOTO 3010 
PRINT D$S:;“"BSAVE “.A$;".A$9500,L8100”: PRINT 


HOME PRINT “A TABELA CRIADA FOI GRAVADA S 
NOME :“- PRINT AS 

PRINT PRINT PRINT * PARA IMPLEMENTAR 
BELA RODE O “o PRINT “PROGRAMA ' IMPLEMENTA 


END 


3 
m 
a 


= "0" THEN RETURN 


1 
2 
3 
4 
s 
) 
é 
? 
1 
1 
1 
1 
1 
D 
1 
R 
1 
E 
1 
1 
1 
1 


meras 


27 AND ASC (AS) » O THEN 
ABC (AS) + 64) NORMAL 


SUSUODO O de pa ra ba fe fare qa dt da a pa pa 


“ge 


“e” THEN 1060 


(AS). ASC (BS) + 128 HOME PRINT PRINT 


ATRIBUIR CARACTERES" 
ATRIBUIR MACROS" 
ACRESCENTAR/CORRIGIR CARACTERES" 
ACRESCENTAR/CORRIGIR MACROS" 
GRAVAR TABELA DE REDEFINICOES" 
sogo 
1000. 


na ra pa pa ra qa E Os 

:oMo»r =" D0j<oovo0oxo 
Sono sermISonA Dt 

oZoo900000mivcocoNom ona 


PRINT * ATRIBUICAO 
NORMAL 
PRINT “TECLE A TECLA QUE VOCE QUER REDEFINI 
PRINT “DEPOIS INCRESSE A MACRO A SER ATRIBUID 
PRINT “TERMINE COM '€* (PARA SAIR TECLE '0*)*” 
INVERSE PRINT "TECLA" HTAB 10 PRINT "“M 
NORMAL 
POKE 34.5 


» 


“1º OR AS > "5" THEN 
o 2000.3000 


nc UUanUaanasa DUO Su cout ns romano ma o ma a 


090000000090009 
S000 Us SUNT DOsS 


4, 
CET AS: IF AS = “0” THEN 2180 F ASC (AS): GOTO 20000 
+ + 








plementa uma tabela de redefinições criada por DEFINE. A 
COLOCA partir destes três programas, tudo que você precisa fazer é: 
REM * CARREGA ROTINA EM LINGUAGEM 


REM * MAQUINA QUE SUBSTITUI KEVIN 1) digitar o programa COLOCA e guardá-lo (SAVE COLOCA); 
POR K = pés TO Ba 2) digitar o programa DEFINE e guardá-lo (SAVE DEFINE); 
pie 3) digitar o programa INPLEMENTA e guardá-lo (SAVE IM- 
PRINT CHRS “BSAVE KEYINREDEF.A$S0300.L55 PLEMENTA); 

; ? Ê ; 4) responder as perguntas que aparecerão na tela e fornecer um 
nome à tabela de redefinições criada, conforme o programa 
perguntará; 

5) rodar IMPLEMENTA (RUN IMPLEMENTA), indicar o nq- 
me da tabela a ser implementada, e pronto: seu teclado não se- 
rá mais o mesmo! 

Um RESET, em qualquer momento, devolverá ao seu com- 
putador o teclado original, mas consulte seu manual antes de 
dar um RESET, pois qualquer falha poderá prejudicar o pro- 


“RUN DEFINEr 





to usada pelos programadores desta linguagem para guardar 
sub-rotinas de usuário, utilitários etc., ou seja, a página 3 da ségra presente na RAM. EE EFINE 
memória, mais precisamente a partir de $0300. ocê pode definir uma ou mais tabelas usando DEFINE — 


Como nem todos têm um editor Assembler ou familiaridade dando um nome diferente a cada uma delas — e implementar 
com a operação do monitor, a figura 1 traz a listagem de um teclados diferentes segundo suas necessidades. Se você incluir 


[ HELLO uma última linha que diga PRINT 
programa em BASIC (COLOCA) que se encarrega de instalar em Seu programa + 
a rotina em seu devido lugar, copiá-la para o disco sob a forma  CHRS(4) ;'RUN IMPLEMENTA”, todas as vezes que bei 
de um arquivo binário (KEYINREDEF) e chamar e rodar um 82! O DOS será solicitado a iniciar o nome da tabela de redefi- 
outro programa (DEFINE, figura 2) que serve para criar uma a que quiser implementar. 
tabela de redefinições. aso você queira ficar com o velho e pouco original teclado, 
Na figura 3 temos a listagem de um último programa, tam- responda CTRL C a esta pergunta, ou simplesmente RESET 


(IMP) ENT : - (se seu Applesoft não for do tipo residente em ROM, consulte 
bém 'emiBASIO EMENTA), que, como diz, o nome, fr seu manual antes de dar um RESET, pois corre o risco de en- 


trar para o-monitor sem saber como voltar). 


sn as TAM Não se esqueça de anotar o que cada tabela faz, e marcar as 
HOME teclas usadas para gerar macroinstruções (use etiquetas) com a 
PRINT vesennenenaancnsannenanead . a 

macro que cada uma gera. Divirta-se!! a 


PRINT "* IMPLEMENTA * e 


PRINT Crrrrmeeenenaceacea nana nana nene 


“ESTE PROGRAMA CARRECA E INICIALIZA” 
“A ROTINA DE REDEFINICAO DO TECLADO" 





CHAS (4) Carlos Alberto Diz é formado em Engenharia Eletrônica pela Universi- 

INPUT “INDIQUE O NOME DA TABELA A SER USADA:" dade de Dundee, Escócia, e possui Mestrado em Administração de Em- 

:As e E presas pelo INSEAD — Instituto Europeu de Administração de Empre- 

DN RA VR ET NEON sas, Fontainebleau, França. Atualmente é sócio-gerente da Compusys- 

x tems do Rio de Janeiro, uma system-house dedicada à consultoria in- 
formática e confecção de software sob medida. 








Figura 3 
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Neste jogo para os micros compatíveis com o TRS-80 Modelo 1, você 
terá que ser muito rápido para combater o ataque das naves inimigas 








Resista ao ataque 


este programa, você deve abater 
N o maior número possível de na- 

ves inimigas que se deslocam ra- 
pidamente em direção a sua área de pro- 
teção. Mas não se preocupe: para se de- 
fender você tem canhões e munição su- 
ficientes. 


A nave inimiga desloca-se para a di- 
reita ou esquerda procurando descer gra- 
dativamente para poder atacá-lo. Os 
raios lançados por ela somente serão dis- 
parados após certa altura. 


Se você quiser movimentar o seu ca- 
nhão para a direita use “ >”, para a es- 
querda “ < ” e para disparar use D. 


O ataque é feito por dez naves idênti- 
cas e, para cada nave abatida, outra volta 
a atacar no mesmo ponto em que a ante- 
rior foi derrubada. 


Se você for um bom combatente e 
conseguir destruir todas as naves, ganha- 
rá um canhão e mais 60 tiros de muni- 
ção para se defender de um novo ata- 
que. Do contrário, tenha muito cuidado, 
pois, para cada canhão destruído, a nave 
aproxima-se mais da área defendida e se 
uma das naves chegar ao solo, você per- 
de automaticamente um canhão. 


Paulo Prado Júnior exerce a função de progra- 
mador no Rodoviário Caçula S.A., atuando 
em implantações de sistemas on-line, além de 
ser sócio-proprietário da MICRO'S Processa- 
mento de Dados Ltda., empresa dedicada ao 
desenvolvimento de cursos e sistemas aplicati- 
vos para microcomputadores. 
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O OD 0 UNO O tom 


REM 
REM PROCESSAMENTO 
REM CURSOS — BASIC » 
REM FONE - (034) 2353-6965 UBERLANDIA-MG 
REM 

REM PROGRAMA : RESISTENCIA AO ATAQUE (JOGO) 
REM AUTOR : PAULO PRADO JUNIOR 

REM 

REM 


Paulo Prado Júnior 





Resistência ao ataque 


DE DADOS 
COBOL E FORTRAN 





CLEAR 1500: DEFINT A-7:6=16192:0=3:T=150:CLS:GOSUB 300 
A=15361 


O POKE G, 1S6:POKE 6+1, 181 


POKE A. 128:POKE A+1i. 12S8:POKE A-i, 128 

A=A+RND(10)-4:1F AS1S361:A=15361:ELSESIF A>16192 GOTO 250 
POKE A. 18S:POKE A+1, 134:POKE A-1,137 

Z=(A-15360)/64+1: IF Z<S:GOTO 110:ELSE: IF RND(11)<11:GOTO 110 
V=0:FOR W=Z7T012:V=V+1:POKE A+Ve64, 173:NEXT W 

V=0:FOR W=ZT012:V=V+1:POKE A+Va64, 126:NEXT W 


100 IF A+((14-7)4*64)=G:G0TO 250 
110 POKE A. 143:POKE A+1. 164:POKE A-1,152 
120 Y$=INKEYS 


130 IF v$=" 
POKE G-W+r64, 17) 


=T-1:1F T<1:C=1:GOTO 250: ELSE:FOR W=1TO13 STEP 2: 
F G-Weo4=A OR G-(W-1)*64=A:POKE G-Wr64, 128: GUTO 


170: ELSE:POKE G-W+64, 12S:NEXT W:GOTO 40 

140 IF Y$=".": IF G<=16250:POKE 6, 128:POKE G+1, 128:6=6+4:POKE 6-1 
S6:POKE G+1. 181:G0TO 40 

150 IF Y$8=",":1F G>=16197:POKE G, 128:POKE G+1,128:6=6-4:POKE 6,1 
S6:POKE G+1, 1S1:GOTO 40 

160 G0TO 40 


170 
180 
190 





R=0:FOR W=ZTOI4 
POKE A+R. 1SS:POKE A-1+R. 137:POKE A+I+R, 134:GOSUB 240 
POKE A+R, 1I91:POKE A-1+R. 140:POKE A+1+R, 140:GOSUB 240 





200 POKE A+R. 143:POKE A-1+R, 152:POKE A+i+R, 164:GOSUB 240 


210 


POKE A+R. 128:POKE A-1+R. 128:POKE A+i+R. 128 


Z20 R=R+64: NEXT W 





30 N=N+1:]J=J+1: IF J=10:]=0:T=T+60:C=0+1:GOSUB 300:GOTO 20: ELSE: 
GUSUB 300:60TO 





o 


240 FOR K=0TOZO: NEXT K: RETURN 

250 FOR W=0T030:R=129+RND(62):POKE G. REPOKE 6+1. RENEXT W 

260 POKE A. 126:POKE A+1. 128:POKE A-1,128 

270 C=C-1:B0SUB 300:A=A+64: IF A>16192 AND C>0 GOTO 20 

280 IF C>0:GOTO 3O:ELSE:FOR W=0TOS32 STEP 64:PRINT 9W. STRINGS (63 
»191)5:NEXT W 

290 PRINT 90. ""s5: INPUT " NEWLINE P/ JOGAR NOVAMENTE ":A$:GOTO 10 
300 PRINT 9596. STRINGS (63.179) 5: PRINT 9960. STRINGS (63, 191)5 

310 PRINT 9963." CANHOES - "5Cs:PRINT 9980," MUNICAO — “"sT5:PRIN 
T 2999." NAVES ABATIDAS — “Ns 

320 RETURN 
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“MIKROS” 
AGORA NO 
LEBLON! 













Av. Ataulfo de Paiva 566 - Loja 211 


Rio de Janeiro — Tel.: 239-2798 


APROVEITE OS PREÇOS 
“INCRÍVEIS” DA “MIKROS” 


DO LEBLON, EM SUA ÉPOCA 


DE INAUGURAÇÃO. 


300 
[TK-83 — TK-85 — RINGO 
SISTEMAS 





AUMENTE A 
PRODUTIVIDADE 
DE SUA EMPRESA 


PRH 
CONSULTORES 


Para o desenvolvimento da 
sua empresa, estamos pron- 
tos a servi-lo. 


Assessoria de Processa- 
mento de Dados, Desenvol- 
vimento de Programas e 
Treinamento de Pessoal 





Sinclair Place 


O lugar compatível 
com você e seu 
micro. 

— Micros 

— Acessórios 
— Software 
— Livros 


COLOR 64 (EXT. BASIC) 


SUPRIMENTOS 
Disquete, fitas, form. contínuo 


CONSULTORIA DE SISTEMAS 
Diagnóstico e apoio a decisão 
CURSOS E TREINAMENTO 
Introdução aos microcomputadores 
Linguagem Basic 
Aplicação dos micros 
na Engenharia 
Microcomputadores para crianças 





SOFTWARE (NAC. E IMPORT) 











IMPRESSORAS E PERIFÉRICOS 


CURSO DE BASIC 


PROFISSIONAIS 
ALTAMENTE ESPECIALIZADOS 
PARA ATENDE-LO 


Alfa Bit. 
Associe-se ao ABCc e ganhe Anúncio GRÁ- 
TIS.:um exemplar de ALFABIT e DESCON- 
TOS de 10% na compra de LIVROS, REVIS- 
TAS, CURSOS e PROGRAMAS, além de 
— Serviços de “Reprinters” e Consultas 
— Associação a Clubes Europeus 
— Participação em Cursos, Congressos e 
Concursos 

— Novos Lançamentos a PREÇOS REDUZ! 
DOS (Breve: IMPRESSORA DE AGU 
LHAS P/MINI-MICROS DE LÓGICA SIN- 
Rn Lançamento "Digital Eletró- 


ANUIDADE Cr$ 1.000 (hum mil cruzeiros) 
somente ao receber seu Cartão-Descontos e 
um exemplar de “Alfabit” 

Envie nome, endereço, profissão e texto do 
seu anúncio (caso queira publicação ime- 
diata) 


NOVIDEIA(*) 
Comunicação e Informática Ltda. 
CAIXA POSTAL 9978 
CEP 01051 - São Paulo, SP 


(*)Comercializamos seu proje- 
to-Soft ou Hard. Escreva-nos 


ANÚNCIO 


O futuro é hoje e nós esta- 
mos presente 









PRH Consultores 
Rua México, 70 - Grupos 810/11 
J. Tel.: (021) 220-3038 


EB BITS E BUTES 
COMPUTADORES 


e VENDAS 
e ASS. TÉCNICA 
ESPECIALIZADA 
e PROGRAMAS 
e DISKETTES 
e FITAS 
e SERVIÇOS 
e CURSOS DE BASIC 
e FORMULARIOS 
CONSERTOS EM 24 HORAS 
(COM GARANTIA) PARA 
O CP-500 e DGT-100 
EM SAO CONRADO 
Estrada da Gávea, 642 
Lj. .B Tel.: 322-1960 





PEQUENO 


Atenção 





GRANDE 





RETORNO 





ESTE ESPAÇO ESTÁ 
RESERVADO PARA SEU 
ANÚNCIO ECONÔMICO. 
GARANTA JÁ UM 
SUPER RETORNO. BASTA 
LIGAR PARA: 

RIO DE JANEIRO: 

(021) 286-1797, 246-3839 
e 266-0339 

SÃO PAULO: (011) 
280-4144 e 853-3800 


leitores 


de todo 
Brasil! 





— Revistas 








Rua Dias da Cruz, 215 — S/804 
Rio de Janeiro — RJ 
BIP — 246-4180 — cód. 2x83 


No Recife, visite 
7 EtSEMWPI DE O (*) 


O Lojao de Informatica mais 
descomplicado do pais! 
Micros, periféricos, suprimen- 
tos, Software, Cursos, Livros e 
Revistas, Componentes Eletro- 
nicos, Peças e Som 


PREÇOS ESPECIAIS 
FINANCIAMENTO PRÓPRIO 


Compre pessoalmente ou pelo 
Reembolso Postal 


TELEVÍDEO LTDA. 

R. Marquês do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife, PE 

(') Sr. Industrial: distribumos seu 

produto nas melhores condiçoes. 
Contato em Sao Paulo: Tel.: (011) 
220-7377 (Sr. ANDERSON — Mun- 
disom) 





INSCRIÇÕES ABERTAS 
Livros e revistas especializados 


visc. de Piraja, 547 Sobreloja 211 
Cep. 22.410 Ipanema Rio RJ 
Tel.: (021) 274-1042 
DESPACHAMOS PARA 
TODO O BRASIL 


CURSO BASIC 


Turmas com 10 alunos 
Aulas práticas e teóricas 


Horários: 

manhã 8:30 hs às 10:30 hs 
tarde 14:00 hs às 16:00 hs 
noite 20:00 hs às 22:00 hs 


MATRICULAS ABERTAS 


trANEMA Micro 


Rua Visc. de Pirajá, 540 1j 106 
22.410 Ipanema Rio RJ 
Tel. 259-1516 





MICRO SISTEMAS informa que a 


firma Spartime e o sr. Eloi Jora 
Soares não mais representam a 
revista para fins de 
venda de assinaturas. 
Para assinar MICRO SISTEMAS, 
dirija-se pessoalmente ou 


por carta aos nossos endereços: 


Rio de Janeiro — R. Visconde Silva, 25, Botafogo, CEP 
22281, tels: (021) 286-1797, 246-3938 e 266-0339 


São Paulo — Al. Gabriel Monteiro da Silva, 1227, Jar- 
dim Paulistano, CEP 01441, tels; (011) 280-4144 e 853- 
3800 





sisttlgse 











Organizando arquivos em K-7 
Algumas vezes, gravamos tantos programas em uma fita, 
que depois fica impossível sabermos onde está determinado 


Enter ou qual programa está sendo carregado no micro. 
a colocar “ordem na casa”, é só acrescentar, quando for 


gravar um programa, uma linha como esta: 


10 INPUT T$:PRINTHA-1, T$:CSAVE T$ 













Digite RUN 10, e após digitar o nome do programa e an- 
tes de pressionar ENTER, ligue o gravador no modo de gra- 
vação 


E quando quiser carregar o micro, não use CLOAD, utili- 
ze O seguinte programa: 


10 INPUT&-1,T$:CLS:PRINTO256, T$: 
PRINTQ512,"CARREGANDO =======>"; 
CLOAD 








Car'os Alberto C. Jr.-DF 








Linha TRS-80 


Vídeo ilegível 






















Para tornar o vídeo ilegível digitando SS= USR (0), use 
este programa que apresentamos a seguir (é só apertar a barra 
de espaço para parar): 





10 POKE 16561,225: POKE 16562,127 
20 POKE 16526,225: POKE 16527,127 
30 FOR X=32737 TO 32753: READY 

40 POKE X,Y: NEXTX 

50 DATA 62,0,211,255,62,251 

60 DATA 211,255,58,64,56,230 

70 DATA 128,202,225,127,201 


E para rodar este programa em BASIC Disco, basta trocar a 
linha 20 para DEFUSRO= 32737. 


Eduardo Artacho-SP 






















Silva, nº 25, Botafogo, RIO DE JANEIRO-RJ, 


PO no cond AO pa q foram de- 
se para qual equipamento 
miniridas. Dies 


forma, sua descoberta poderá ser útil para 


muitos e muitos, em vez de desmagnetizar-se com o tempo 
em suas fitas e disquetes... 


10 
20 
30 
40 
50 
60 








Para utilizar um DIMENSION progressivo, use as variáveis alfanuméricas con- 
catenadas (V$= V$S+AS onde AS será o dado a ser armazenado em V$). 

KR Para recuperar os dados individualmente, utilize VS (X TO X + Y), onde X é 

INCL PAN o apontador para cada “dimensão” e Y é o tamanho de cada dado. Assim, o es- 

Di . paço utilizado no micro para armazenar dados ou informações será em função da 

1mension quantidade de dados já operados, e não de uma quantidade predeterminada. 

progressivo | Dessa forma o micro não vai ficar guardando “fichas em branco”. 


apertando a barra de espaço, use este programa: 


Disco, é só trocar a linha 20 para DEFUSRO= 32737. 





Linha TRS-80 
Ligue o gravador com SS=USR (0) 






Para ligar o gravador usando SS=USR(0), e desligar 













POKE 16561,225: POKE 16562,127 
POKE 16526,225: POKE 16527,127 
FOR X=32737 TO 32749: READY 
POKE X,Y: NEXTX 

DATA 62,5,211,255,58,64,56 
DATA 230,128,202,225,127,201 














Para que este programa rode também em BASIC 





Eduardo Artacho-SP 














Renato Degiovani-RJ 
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Linha TRS-80 
Trocando a senha 


é suficiente introduzir um outro disco em que a senha é co- 
nhecida, e fornecer esta senha ao micro. Depois, voltar o dis- 
co anterior e dar a senha atualizada, que será gravada em lu- 
gar da anterior, desconhecida. 


Luiz Gonzaga de Alvarenga-GO 


“Linha SINCLAIR 
Substitua o PAUSE 


É comum precisarmos manter uma listagem no ví- 
deo por um determinado tempo, para apagá-la poste- 
riormente. A maioria dos usuários utiliza a instrução 
PAUSE X, onde X= n/60 segundos. Mas uma das des- 
vantagens deste recurso são as perturbações na tela, en- 
tre outras. E nos equipamentos antigos, havia ainda a 
necessidade de uma instrução POKE 16437,255 (devi- 
e oa e Coênaeo) dopoia do PAU 

Para melhorar esta situação, basta usar uma malha 
de tempo (FOR...NEXT) como sub-rotina. Por exem- 
lo: 


800 FOR A=0 TO 100 
801 NEXT A 
802 RETURN 


Para a variação de O a 100, a malha dura três segun- 
a Ronan Ea engndos, im guoniro- 


Dilson Bastos Fernandes-MG 


“Linha APPLE 


Limpe o vídeo com criatividade 


Para limpar seu vídeo de forma mais elegante e interessan- 
pd É of cmdradres eso Pen use esta dica e veja o ví- 
deo ir se apagando da direita para a esquerda e vice-versa, do 
centro da tela para as bordas laterais e o inverso, e ainda do 
centro para cima e para baixo. Além de você poder criar mui- 
tos efeitos com esta dica, observe o que acontece quando vo- 
cê terminar o programa. 


HOME : GOSUB BO 
FOR I = 39 TO O STEP - 13 
32,1: POKE 33,40 — I: 
NEXT : GOSUB 80 
FOR I = 1 TO 40: POKE 33,1: 
: NEXT : GOSUB 80 
FOR I = 39 TO 20 STEP - 1: 
32,1: POKE 33,40 — I: HOME : 
POKE 32,0: HOME : NEXT : POKE 
33,40: GOSUB 80 
FOR I = 19 TO O STEP - 1: POKE 
32,20: POKE 33,20 — I: HOME 
: POKE 32,1: HOME : NEXT : POKE 
33,40: GOSUB 80 
FOR I = 13 TO 24: HTAB 1: VTAB 
1: CALL -— 868: VTAB 25 -— I: 
CALL -— 868: FOR J = 1 TOS 
O: NEXT : NEXT : LIST 40 — 
PRINT : PRINT CHR$ (953);: FLASH 
= PRINT " "5: NORMAL : FOR I 
= 1 TO 500: NEXT 
VTAB 24: FOR I = 1 TO 21: PRINT 
: FOR J = 1 TO 100: NEXT : NEXT 
: VTAB 1: END 
LIST 40 — : FOR I = 1 TO 1000 
: NEXT : RETURN 


Linha TRS-30 
Data Opcional no DOS 


Na Seção Dicas de MS nº 24 publicamos um PATCH 
para evitar que o DOS 500/TRS DOS solicitasse data/ho- 
ra ao darmos RESET. Agora vamos apresentar PATCHs 
que representam uma alternativa interessante: apesar de 
manterem a solicitação da data/hora, permitem que o 
operador, tal como já acontece com a hora, digite as in- 
formações corretas ou simplesmente aperte ENTER, fi- 
cando a informação correspondente ajustada em zero. Is- 
to será de muita utilidade se você gostar de ter a data 
corretamente registrada no diretório, ao gravar um pro- 
ra em disco. Em DOS 500 Ativo/TRS DOS Ready 

igite: 


PATH *O (ADD=4EC1,FIND=FO,CHG=07) <ENTER> 
PATH *O (ADD=4ED4, FIND=3A814F,CHG=C3FE4E) <ENTER> 


Estes PATCHs, embora só aceitem caracteres numéri- 
cos, não verificam se os valores mês/dia/ano estão den- 
tro dos limites normais. Mas se você já havia modificado 
o seu DOS de acordo com a dica de MS no 24, não se 
esqueça de revertê-lo à condição original — conforme o 
manual do DOS 500 ensina na página 48 — antes de fa- 
zer esta modificação. 





GU 0111 0:00 090 1100 1411 
*000 0010 





N a última lição estávamos conversando sobre as instru- 
ções que compõem o grupo de aritmética e lógica de 8 bits. 
À seguir vamos e qem a descrição das instruções que 
compõem este gru; 

M- ea gia XOR 
o: Et - lógica XOR do Acumulado; 
ração: Efetua uma operação lógica o Acum r 
com o conteúdo do operando s (r, n, (HL), (IX+d), 
Iy+d)). A operação lógica XOR é verdadeira 
(bit = 1) se os operandos envolvidos na operação 
forem diferentes. A tabela abaixo demonstra os 
possíveis resultados de uma operação XOR: 





Código Objeto: 


XOR r 
XOR n 


XoR 
XOR 


tuL) 
(1Xed) 


XOR (Ived) 





onde r identifica os registradores A, B,C, D, E, H ou L, monta- 
dos a partir da tabela 1. 


Exemplo: 
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Assembler 


XI 








XO0R “0H 


IEA II] —» ee 


0087 0:7/05,/0"00 0RSD 


Descrição: É efetuada uma operação lógica XOR do operando 
s, definido como sendo qualquer dos operandos r, 
n, (HL), (IX+d), ([Y+d), com o conteúdo do Acu- 


mulador, e o resultado é transferido para o Acu- 





















mulador. 
INSTRUÇÃO OPERAÇÃO CICLOS DE MAQUINAS (M) ] STATES (1) 
non n ne-aOn 2 204,3) 
son (ui) AoA qm) 2 748,3) 
sor (Ixed) AA (Ixedy s | 19(4,8,3,5,3) 
xoR (ived) J Asa Nena | 5 19(4,4,3,5,3) 
Flags Afetadas: S — setada se o resultado é negativo, se- 
não é resetada; 
Z — setada se o resultado é zero, senão é 
resetada; 
H — resetada; 
P/V — setada se a paridade é par, senão é 
resetada; 
N — resetada; 
C — resetada. 


Como exemplo, se o Acumulador contém 96H(100101 su 
após a execução de XOR SDH (01011101), o Acumulador irá 
conter CBH (11001011). 


0 TT se 96H 
A SE) 5DH 
MAD 1. 41828 1 cBH 


A instrução XOR A move zero para o Acumulador. 

12 — Compara Acumulador com operando 

Formato: CP s 

Operação: Efetua uma operação de comparação do conteúdo 

do Acumulador com o conteúdo do operando s (r, 

n, (HL), (IX+d), (1Y+d)). As flags são atualizadas 
em função do resultado da comparação. 

Código Objeto: 
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<— »——+ 

RR rsrs too) ue 
POR ada 
q» 


[oe r elo] — pur 


«— —a > 





onde r identifica os registradores A, B,C, D, E, H, ou L, mon- 
tados a partir da tabela 1. 


Exemplo: 
cr L 
cam REZA 
—o 
cr 40H 


[als a Tato] —pre 
0100000 o|—bã 


Descrição: Efetua uma operação de comparação do conteúdo 
do Acumulador com o conteúdo do operando s (r, 
n, (HL), (1X+d), (Iy+d)). Esta instrução efetua 
uma subtração do conteúdo do Acumulador com o 
conteúdo do operando e posiciona as flags com o 
resultado da operação, sem alterar o conteúdo do 


CompBei SISTEMAS E MICROCOMPUTADORES 


& Introdução a Microcomputadores; BASIC dirigido a estudantes. 
e BASIC le BASIC II 
e Aplicativos sobre software específico. 
1 equipamento por aluno. 
e Utilização de TK85, Apple Il e TK2000. Impressora. 
Cursos Fechados 


VENDA DE EQUIPAMENTOS 


e TK83, TK85, TK2000 e Elppa Il Plus. Periféricos. ; 


SOFTWARE APPLE 


* JACK - texto, arquivo pessoal, cálculo e mala direta integrados 
num disco (PORT) 


* BIBLIOTECÁRIO - Organização de bibliotecas. Pesquisa 40 ar- 
tigos/seg. e arquiva 1000/disco. 
DATA BASE — banco de dados (PORT) 
AUTOCODE | - gerador de programas para DATA BASE . 
SUPER - banco de dados; fácil, versátil e o mais rápido. 
LIST HANDLER - cadastro e mala direta; super rápido; 3000 
arquivos/disco. 
VISICALC - planilha eletrônica. 
MULTIPLAN - planilha eletrônica multipla. 
VISIPLOT - VISITREND - gerador de gráficos. Estatística. 
SUPERCALC com gráficos. 
APPLEWRITER - processador de textos. 

e Outros, sob consulta. 

e SOFTWARE para HP85, sob consulta. 





RUA GREGÓRIO PAES DE ALMEIDA, 62 * VILAMADALENA * PINHEIROS 
CEP 05450 . SÃO PAULO . se . FONE: 65-9857 





CIBERNE é a mais avançada e sofisticada linha de sotfware para microcomputadores, criada 











amento 6 vezes mais rápido 


Perigosos vegetalóides atacam uma colônia de humanos. E 


vasão de extraterrestres vai deixar você arrepiado de emoção 


Acumulador. para livrar você dos inconvenientes de produções amadoras ou de origem duvidosa. Com 
CIBERNE você terá uma diversificada linha de programas novos, lançados periodicamente 
em pacotes econômicos. Com gravação profissional e em embalagem inviolável, CIBERNE 
oferece a você garantia total em qualquer lugar do Brasil. 
— —— am — =| - : 
Instrução | OPERAÇÃO | CICLOS DE MAQUINA (M) | STATES (7) || PROGRAMAS EM FITA PARA TK-82, 83, 85, CP-200 E COMPATÍVEIS 
a el 5 = há 1 sina] Com o exclusivo FLASH-SISTEM que permite um carr 
ce Re 1 R que o normal, sem qualquer modifica 
PROCURE EM SEU REVENDEDOR: 
ce mn Aim 2 748,3) * CASCA A COBRA/CENTOPÉIA — Na mesma fita, dois excitantes jogos que são um desafio à sus habili- 
dade e raciocínio 
CP (ML) Az) 2 704,3) * FUNGOS MUTANTESICRAZY KONG 
| mais, o clássico Kong agora melhorado e com 3 faces. 
* NAVE MAE/GALÁCTICA — 
cr (ixed) As(Ixed) > 19(4,84,3,5,3) 
* DEFENSOR/MAZOGS — Você dirige a última nave que tenta defender uma civilização perdida. E o mais 
CP (Ived) | Astived) 5 19(4,6,3,5,3) | fantástico dos caça so-tesouro 
l od * GUERRA AFREA/ALERTA VERMELHO — Duas emocionantes aventuras “séreas onde você pilota um 


Flags afetadas: S — setada se o resultado é negativo, se- 
não é resetada; 
— setada se o resultado é zero, senão é 
resetada; 
H — setada se ocorre empréstimo para 
bit 4, senão é resetada; 
P/V — setada se ocorre overflow, senão é 


resetada; 
N — setada; 
C — setada se ocorre empréstimo no bit 


7, senão é resetada. 

Por exemplo, se o Acumulador contém 63H, o par de regis- 
tradores HL contém 6000H e a posição da memória 6000H 
contém 60H, após a execução da instrução CP (HL), todas 
as flags são resetadas, exceto n. 
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caça ou um poderoso bombardeiro. 


* ROTA PLUS — Incremente seus programas com este sensacional sistema operacional gráfico, uma nova é 
mais poderosa versão de ROT-L 


E PARA BREVE 

* O MERCADOR 

* STARQUEST 

* ZARAKS 

E MAIS: 

* VASTA LINHA DE PROGRAMAS PARA DIGITUS, CP-300 
E 500, APPLE E MUITOS OUTROS. 


EM TODO O BRASIL NAS MELHORES LOJAS DO RAMO. 


Informações, Distribuição e Vendas: 
JV À - MICROCOMPUTADORES LTDA. 
Av. Treze de Maio, 23 — Grupo 1519 — Rio de Janeiro - RJ 
CEP 20.031 Tel.: (021) 262-6968 


* ESTRELA NEGRA 
RISTAL MÁGICO 
GUERRILHA CÓSMICA 
* ALTA RESOLUÇÃO 


* ORÇA | (Orçamento Doméstico) 
* ROT-II (Compilador Ass/Desas) 
* ARQH (Arquivo de Dados) 

* CASH-FLOW 








ê a a) E do operando m (r, (HL), 
Objeto: 


(Ixed) 


(Ived) 


onde r identifica os registradores A, B,C, D, E, H, ou L, mon- 
tados a partir da tabela 1. 
Exemplo: 


INC L 

Guides o. 1 EE o 
INC (HL) 

0011010 0)—p3 


ição: O údo do di , , , 
DR ae icemmantãoo o SS 











CICLOS DE MÁQUINA (M) STATES (1) 





. 
1H(4,8,3) 


2304,0,3,5,8,3) 





2H8,8,3,5,8,3) 





S — setada se o resultado é negativo, se- 
não é resetada; 

Z — setada se o resultado é zero, senão é 
resetada; 

H — setada se vai — um do bit 3, senão é 
resetada; 


P/V — setada se o operando contém 79H 
antes da operação, senão é resetada; 

N -— resetada; 

C — não afetada. 


Como exemplo, se o conteúdo do par de registradores HL é 

a 6000H, e a posição de memória 6000H contém o byte 28H, 

o ces dba par per 

de memória 6000H será o byte 29H, e o conteúdo do par de 
registradores HL será 6000H. 
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14 — Decrementa operando 










renaçãos sitio teúdo do operando m (r, (HL), 
o con: m (r,: 

(DE, 0H). 

Código objeto: 

me 

DEC (ML) 0: 0/4010 9 esa 

DEC  (IX+d) 

DEC (Iv+d) 





onde r identifica os registradores A, B, €, D, E, H ou L, monta- 
dos a partir da tabela 1. 


registrador 
registrador 
registrador 
registrador 
registrador 
registrador 


registrador 





Tabela 1 


Exemplo: 


Descrição: O conteúdo do do ; , ) 
o O a rg m (r, (HL), (IX+d), 





INSTRUÇÃO 
ter . 


[US] 164,8 ,3) 


230,8,3,5,8,3) 


(IXed)=(IXe6)-1 


(Ived)a (Ived)-1 2300,8,3,5,8,3) 
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Flagsafetadas: S — setada se o resultado é negativo, 

senão é resetada; 

Z — setada se o resultado é zero, senão é 
resetada; 

H — setada se ocorre empréstimo do bit 
4, senão é ressetada; 

P/V — setada se o operando contém 80H 
antes da operação, senão é- resetada; 

N — setada; 

C — não afetada. 


Por exemplo, se o registrador D contém o byte 2AH, após a 
execução da instrução: DEC D,o registrador D irá conter o 
byte 29H. 

Agora, vamos esquecer um pouco a segliência dos grupos de 
instruções definidos pela Zilog, e passar a descrever um grupo 
de instruções de vital importância para a elaboração de qual- 
quer programação assembler. No último grupo de instruções 
descrito, aprendemos a efetuar comparações; entretanto esta 
instrução é passiva, ou seja, não executa nenhuma ação no flu- 
xo do processamento. O grupo de instruções que passamos 2 
descrever é o grupo de desvios, que efetua a ação de desviar o 
fluxo do programa, em função de uma comparação efetuada 
anteriormente. 

Vamos então às instruções deste grupo. 


1 — Desvio incondicional: 

Formato: JP mn 

Operação: Efetua um desvio incondicional para o endereço 
especificado na instrução. Esta operação se asseme- 


lha ao GOTO do BASIC. 
Código objeto: 
JP nn 





rando mn é carregado no par de registradores 

ogram Counter), que aponta para o endere- 
ço da próxima instrução que será executada. Ob- 
serve que, nos dois bytes do operando em lingua- 
gem de máquina, o primeiro byte indica o byte de 
baixa ordem do endereço, e o segundo indica o 
byte de alta ordem do endereço. 

Ciclos de máquina (M): 3 

States (T): 10 ( 4, 3, 3) 

és A afetadas: Nenhuma 

or exemplo, a instrução JP  50A1 provoca um desvio do 
programa para o endereço S0A1H, isto é, a próxima instrução 
executada se encontra no endereço S0A1H. 


Descrição: O o) 
PC 
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2 — Desvio condicional 

Formato: JP CC,m 

Operação: Efetua um desvio para o endereço especificado na 
instrução, somente se a condição CC for verdadei- 
ra. Esta operação se assemelha ao IF do BASIC. 


Código objeto: 


IP cc nn 


+<—— Ss 
«0,10» 
onde CC identifica a condição da flag a ser testada. Se a condi- 


ção for verdadeira, ou seja, se a flag estiver na condição deseja- 
da, o desvio é realizado. 


000 para ccc = para FLAG NZ (Z=0) 
091 para ccc = para FLAG Z (Z=1) 
010 para ccc = para FLAG NC (C=f) 
911 para ccc = para FLAG € (C=1) 
100 para ccc = para FLAG PO (P/V=f) 
1901 para ccc = para FLAG PE (P/V=1) 
110 para ccc = para FLAG P (5-0) 
111 para ccc = para FLAG M (S=1) 
Exemplo: 





Descrição: Se a condição é verdadeira, a instrução carrega o 
operando nn no par de registradores PC (Program 
Counter), e o programa continua na posição dada 
por nn. Se a condição é falsa, o Program Counter é 
incrementado usualmente, e o programa continua 
no seu fluxo natural. 

Ciclos de máquina (M): 3 

States (T): 10 (4, 3, 3) 

nã = afetadas: Nenhuma 

or exemplo, se o Carry Flag (Flag C do registrador F) está 
setado, após a execução da instrução: JP C, 1520H, o mi- 
croprocessador irá executar a instrução existente na posição de 


ja: R = 
memória'1520H E 


Amaury Correa de Almeida Moraes Junior é formado pelo curso de 
Análise de Sistemas da FASP, tendo feito diversos cursos de a) 
mento nas áreas de Eletrônica Digital e Microprocessadores, e atualmen- 
te trabalha na área de microcomputadores para o Citybank. 
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Do interior de sua nave espacial você se vê rodeado de vários asteróides. 
Comande com firmeza seu micro da linha Sinclair, pois a colisão pode ser fatal! 





Cuidado... os asteróides vêm aí 





Sergio Henrique Jarreta 





ster é um programa desenvolvido especialmente para os 

microcomputadores compatíveis com o Sinclair ZX81. 

: Elaborado totalmente em Assembler, permite ser utili- 
zado tanto em equipamentos de 2.ou 16 Kb. 

O objetivo do jogo é simples: você está pilotando uma nave 
espacial em meio a uma densa nuvem de asteróides, com os 
quais deve evitar a todo custo colidir. Os únicos comandos de 
que vai precisar são as teclas Se 8. 

Os pontos vão sendo contados até que sua nave colida com 
algum asteróide. Quando isto acontece, basta teclar NEW 
LINE (ou ENTER) — o placar é zerado automaticamente e o 
jogo se reinicia. Porém, há um detalhe: após cada colisão a ve- 
locidade da nave aumenta, sendo esse processo repetido 15 ve- 
zes, quando, então, a velocidade torna-se novamente mais 


Para a digitação do programa, siga as seguintes instruções: 


1) grave o Monitor Assembler publicado em MICRO SISTE- 
MAS número 23 (agosto de 83); 


2) digite uma linha 1 REM com 611 caracteres após REM; 
3) digite uma linha 2 REM com 338 caracteres após REM; 
4) digite os blocos Assembler; 
5) confira detalhadamente o que digitou; 
6) elimine o Monitor; 
7) digite as seguintes linhas: 
3 SAVE “ASTER” 
4 RAND USR 17296; 
8) prepare a fita para gravação; 
9) digite RUN 3 e NEW LINE e grave o programa. 


Não é demais lembrar que a digitação dos blocos Assembler 
deve ser feita com a maior atenção, pois um único código erra- 
do pode comprometer o funcionamento normal do programa. 

Por isso, cuidado... e sucesso em sua pilotagem! 





Sergio Henrique Jarreta estuda Programação na Escola COBOL — Cen- 
tro de Ensino, em Santos, e elabora programas nas linguagens Assem- 
bler, COBOL e BASIC. 


Aster — Blocos Assembler 
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PENETRATOR 





SCARFMAN DANCING DEMON 






Sysdala 


Você só descobre o quanto precisa de um Micro-Com- Microcomputador pessoal 
putador JR da Sysdata depois que o conhece de perto. 

Você vai ter certeza de que fez um ótimo negócio ao 
adquirí-lo assim que o colocar na sua empresa ou na sua 
casa. 

O JR da Sysdata é rápido, é versátil, é compacto. 
APLICAÇÕES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatório de clientes, mala direta, 
cálculos de orçamentos financeiros,controle de processos 
industriais, cálculos de engenharia, cálculos de estatísti- 
cas, funções matemáticas, funções lógicas em cadeia de 
caracteres (STRINGS), gráficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

O acesso a grandes sistemas de computação, a comuni- 
cação entre os departamentos de Empresa, efetuar pro- 
gramas específicos para cada Empresa. 

E, como se nãobastasse, ele é o Micro-Computador de 
menor preço do mercado. 

Com todas as qualidades que tem, o JR da Sysdata nem 
precisava ser tão econômico. Mas é. 

Afinal, ele é o mais completo Micro-Computador de sua 
geração. q J 

Inclusive no preço. Sysdala dons rei: 675000 

Você pode testar estas e outras qualidades do JR em a gh 
qualquer dos nossos revendedores. 











REVENDEDORES: SÃO PAULO/Capital - Ad Data 864.8200; ADP System 227.6100; Búcker 881.7995; Cinótica 36.6961; Compumarketing 212.9004; Compute 852.853; Com 
puterland 231.3277; Foto Léo 35.7131; Fotótica 853.048; Guedes 289.9051; Horst 203.5597; Interface 852.5603; Lema 210.5929; Microrei 881.0022; Miprotec 289.4941; Nova Gera 
ção 814.3663: O.P.A. 35.8685; Plandata 275.0181; Plantel 543.9653; Sacco 814.0598; Servimec 222.1511; Sistenac 282.6609; S.0.S. 66.7656; Runner's 469.087; Campinas 

Computer House 852 5855; Computique 32.6322; Microtok 32.4445; Rio Claro - Coml. Micro Cosmos 34.5801; Ribeirão Preto - Compusys 635.1195 - Araras - Copec 41.379; 
Taubaté - Ensicon 33.2252; Mogi Guaçu - Guaçumaq 261.0236; Bragança Paulista - Infordata 543.5198; Bauru; Marília - Sipro 33.4109; Catanduva - Teledalto 22.8119; RIO 
DE JANEIRO /Capital - Clap 228.0734; Computique 267.1093; G D M Informática 284.8744; JR de Góes 246.4180; Kristian 391.3165; Suprimento 274.8845; Petrópolis - Foto Oti- 
ca 42,1391; MINAS GERAIS/Belo Horizonte - Compucity 226.6336; Computec 225.2617; Kemitron 225.064; Minas Digital 337.7946; Poços de Caldas - Computique 721.5810; 
RIO GRANDE DO SUL/Porto Alegre - Advancing 26.1194; Aplitec 24.0465; Digital 24.1411; Microsis 22.9782; Pelotas - Sistematika 22.3810; Novo Hamburgo - Micromega 
93.4721; PARANÁ/Curitiba - Computique 243.1731; Micro System 232.3533; Morgen 232.0593; Ponta Grossa - Grupo Data Memory 24.6191; Londrina - Shop Computer 
23.9674: GOIÁS /Goiânia - Casa do Microcomputador 223. 1165; Grupom 225.8226; SANTA CATARINA /Florianópolis - Castro 22.6933; Infotec 23.4777; BRASÍLIA /Distrito 
Federal - Compushow 273.2128; Digitec 225.4534; MATO GROSSO DO SUL/Campo Grande - DRL 382.6487; Vídeo 321.4220; CEARÁ Fortaleza - Siscompy 244.4691; 
PARAÍBA/ João Pessoa - Medusa 221.6743; PERNAMBUCO /Recife - Elogica 241. 1388 





Na garupa dos videogames e jogos para computadores, surge o joystick, para muitos 
dispensável, para outros a única razão de ser dos jogos de movimento 








Joystick 





Fundamental ou acessório? 


alar de joystick e não citar a Ata- 

F ri é o mesmo que falar em micro- 

computadores e esquecer a Radio 

Shack ou a Apple. Apesar de não ser a 

única e nem mesmo 2 melhor indústria 

de joystick, a Atari merece ser sempre 

lembrada por ter criado aquele que é ho- 

je o mais difundido controlador de jogos 

do mercado, base para muitas adapta- 
ções e versões tupiniquins. 

Na verdade, os “profissionais do ra- 
mo” há muito abandonaram seus joys- 
ticks tipo Atari e tentam, via amigos- 
que-viajam-ao-exterior, acompanhar o 
fantástico desenvolvimento desses aces- 
sórios nos países mais adiantados. Afi- 
nal, lá fora é possível encontrar um au- 


O TK82€ é o primeiro micro 
nacional com ligação específica 
para joystick, apesar de só 
muito tempo depois a 
Microdigital ter-se lançado na 
fabricação deste periférico 
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têntico manche para aquele programa 
especial tipo Guerra nas Estrelas, onde 
você é o piloto de um fantástico caça hi- 
per-super-sônico, numa não menos fan- 
tástica batalha espacial. 

O joystick posto desta forma deixa 
transparecer a sua real concepção fun- 
cional e estrutural, que pode ser tradu- 
zida por “uma haste vertical com mo- 
vimentos direcionais, que substitui algu- 
mas teclas ou outros mecanismos de 
acionamento”. Mas por que então criou- 
se uma mística tão grande em torno de 
algo tão simples? Esta é uma questão 
que vem a reboque de outra maior: por 
que esta febre por jogos animados que 
tanto barulho tem causado? São pergun- 


eee ne ce ra a 
E rrnna 
e e een e 
ão a aa Co A CA CA A 





tas que não podem ser respondidas ain- 
da hoje, pelo menos razoavelmente. 


A indústria e a propaganda ajudaram 
a criar a lenda de que aquele escore ina- 
tingível se tornaria uma constante com 
o novo joystick oitava maravilha do 
mundo. Do sonho à realidade, o desper- 
tar pode ser doloroso, e sobretudo deve- 
se ter cautela, pois tudo isso pode ser 
mais uma arapuca para ingênuos usuá- 
nos. 


POR TRÁS DO MANTO 


Despido de sua aura, podemos defi- 
nir um joystick como sendo um contro- 
lador de funções que tem a pretensão de 
agilizar e tornar mais seguras certas 
ações. Ele pode, e tem sido muito mais 
usado desta forma, ser um controlador 
de movimentos em jogos animados. Mas 
nem todos os jogos fazem dele um que- 
brador de recordes: em alguns ele é to- 
talmente dispensável e em outros não 
fará muita diferença tê-lo ou não. 


Existe também o paddle, versão mais 
simplificada do joystick. no qual a ala- 
vanca é substituída por um botão gira- 
tório. A movimentação das figuras, no 
entanto, é feita somente em duas dire- 
ções (direita e esquerda), tornando-o, 
neste sentido, menos eficaz. 

Um joystick é mecanicamente mui- 
to simples. Ele pode ser construído com 
contatos magnéticos ou eletromecâni- 
cos, por sensores especiais ou ainda com 
a nova borracha semicondutora. Na inti- 
midade, porém, tudo não passa de sim- 
ples interruptores que podem ser con- 
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cebidos com muita facilidade. Sua liga- 
ção com o micro ou console de video- 
jogo é que pode causar uma série de 
aborrecimentos ao usuário. 

Geralmente tal ligação é feita por 
uma tomada: RCA, porém não há qual- 
quer padronização quanto à pinagem da 
mesma, provocando, dessa forma, algu- 
mas confusões e uns poucos curtos-cir- 
cuitos. De fato, tudo seria mais fácil se 
as indústrias fizessem constar no manual 
de seus equipamentos alguma informa- 
ção a respeito desse tipo de ligação. 

Apesar disso, alguns fabricantes já 
tem incoi porado a seus equipamentos 
saídas especiais. Tais saídas são, via de 
regra. “em paralelo” com o teclado, o 
que de certa forma é o meio mais dire- 
to de se obter uma ligação com o joys- 
tick. O Color 64. por exemplo. possui 
um comando específico de leitura para 
joystick (JOYSTK), o que representa 
um avanço em relação aos micros adap- 
tados. 








A SITUAÇÃO NO BRASIL 


No Brasil ainda não existe tecnologia 
e tradição suficientes para a efetiva fa- 
bricação de joysticks. As peças ainda são 
importadas, e o que se percebe são algu- 


mas empresas esforçando-se em colocar 
o produto no mercado, embora este es- 
forço, na prática, não se esteja traduzin- 
do em um fluxo normal de produção 
e consumo. 

Isto é simples de constatar: basta um 
giro por algumas lojas de microcompu- 
tadores. Joysticks anunciados simples- 
mente não são encontrados: outros fo- 
ram lançados na última Feira de Infor- 
mática e até hoje não se tem notícia de- 
les: e existem também casos como o da 
Microdigital, que parou sua produção 
devido à dificuldade de importação de 
componentes. 

Um joystick custa, quando encon- 
uado, de Cr$ 18 a 45 mil (no caso dos 
mais sofisticados). O público consumi- 
dor é muito variado. “Em geral é o ado- 


O comando JOYSTK do Color 64 facilita a ligação do joystick no equipamento 





= bis 


lescente e a criança que já possui um mi 
crocomputador, mas há também o exe- 
cutivo que usa seu micro no trabalho e 
que nos fins de semana gosta de brin- 
car”, conta Sônia Aparecida Paganini, 
assistente de vendas da Computerland. 
Ricardo Magen Stella, vendedor da Mi- 
croshop. já acha que a maior parte das 
pessoas que O procuram são iniciantes, 
leigos no assunto, que estão começando 
pelos jogos. 

A existência de um mercado interno 
é flagrante. Dispensável ou não, o fato 
é que o joystick já está incorporado ao 
universo dos jogos eletrônicos. Ganhará 
quem acordar mais cedo. 





Pesquisa e apuração: Cláudia Salles Ramalho, 
Denise Pragana e Ricardo Inojosa 





os I'stados Unidos, berço 
N e paraíso mundial dos vt 
deogames, as disponibih- 


dades são muitas e se aperfei- 
coam a cada ano. No caso espe 
cífico dos joysticks, eles acom- 
panham a tendência geral do se- 
tor de hardware: à constante 
evolução tecnológica correspon- 
de um decréscimo progressivo 
nos preços 

A qualidade também cresce 
os novos joysticks de baixo pre- 
ço já incorporam caracteristicas 
que até ha bem pouco tempo 
eram privilégio dos modelos 
mais sofisticados. 

A Wico Corporation é o prin- 
cipal fabricante de joysticks, 


com a maior e mais diversifica- 
da linha de produtos, destinados 
a uma variedade de marcas de 
| videogames, tais 
Commodore e 


como Atari, 
Coleco Vision 





Trackball, da Roklan 





Mouse com controlador (Wico) 


avião, com botão de disparo in- 
corporado à própria alavanca, 
enquanto que outro modelo bas- 
tante comum é o paddle, no 
qual a alavanca é substituída por 
um botão giratório. Ambos os 
modelos podem também vir 
com ou sem teclado de membra- 


The Boss, joystick tipo avião, da 
Wico 





Entre os outros fornecedores de 
renome figuram a Spectravideo, 
Discwasher, TG Products, Point- 
master, Roklan e Suncom. além 
dos próprios fabricantes de vi- 
deogames e arcades (fliperamas) 
Quanto aos preços, acompa- 
nham a sofisti o tecnológica 
do produto, variando, em mé- 
dia, de acordo com levantamen- 
to da revista Electronic Games 
(outubro/83), entre US$ 13 e 
US$ so. 

Os formatos desses periféri- 
cos e os tipos de acionamento 
que utilizam variam bastante, 
destacando-se, porém, alguns de- 














O Joyboard, da Amiga Corpora- 
tion 


dicional, com alavanca reta e bo- 
tão de disparo no corpo do apa- 
relho. Algumas marcas oferecem 
alavanca de comando do tipo 


na. 

Também muito interessantes 
são os tipos trackball (o contro- 
le é feito através de uma esfera 
que permite comandar movi- 
mentos de 360 graus) e o mou- 
se (camundongo), controlador 
no qual os comandos de direção 
advêm da movimentação do pró- 
prio dispositivo sobre uma su- 
perfície lisa. Fora esses, há mo- 
delos que têm desde um volante 
- para jogos tipo Fórmula 1 — 
até o joyboard, uma platafor- 
ma tipo balança de banheiro so- 
bre a qual a pessoa controla o 
jogo com os movimentos do 
próprio corpo 
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Quer um parceiro com quem não precise dividir o prêmio? Rode o programa 
e deixe que seu micro da linha Sinclair dê os palpites por você 











Os palpites da 


microzebrinha 


odo bom apostador da Loteria 

| Esportiva costuma se armar de 
intrincados esquemas e infalíveis 
cálculos estatísticos e de probabilidade 
para marcar seu cartão — e às vezes o 
bolão sai para aquele que aposta simples- 
mente na base da sorte e da adivinhação... 
Mas, se você quiser, seu micro da linha 
Sinclair poderá ajuda-lo bastante. Do 
jeito que está, este programa vai marcan- 


1 REM <NELSON HISASHI TAMURA> 
10 LET a a e 
15 LET 
20 LET 
25 LET 
30 FAST 
35 PRINT AT 1,0; "TERENCE 

TI vALa 
40 PRINT AT 0,0;"B";C$;"M";AT 

2,0; MW"; DS; "a 
50 PRINT ,, o, "TR 

ERR" 

60 PRINT "CHEREOPMN ECHO” 
70 PRINT " ";A$ 
80 FOR X=1 TO 13 

90 IF X<=9 THEN LET E$="D 0" 

100 IF X>=10 THEN LET E x 
110 PRINT " ";E$;X;B$ 

120 NEXT X 

130 POKE 16418,0 

140 PRINT AT 22,1;A$ 

150 PRINT AT 0,22; "«/hh/ kizkmh)";A 
T 1,22; D";aT 2,22; "NADO 


Nelson Hisashi Tamura 





do, aleatoriamente, quantos cartões vo- 
cê quiser, com apenas uma ressalva: os 
duplos e os triplos ficam por sua conta. 
Agora, se você também tiver um destes 
esquemas infalíveis, poderá introduzi- 
lo, justamente no trecho responsável 
pelo sorteio dos palpites aleatórios: li- 
nhas 240 a 300. 

E como duas cabeças palpitam me- 
lhor que uma, suas chances de alcançar 


Loteria Esportiva 


LE 
160 PRINT AT 4,21;"OBSERVACAO"; 
AT 5,21; "iii 
170 PRINT AT 7,21;">0 DUPLO E"; 
AT 8,22;"TRIPLO EH";AT 9,22; "COM 
VOCE. " 
180 SLOW 
190 FOR W=1 TO 1000 
200 FOR M=1 TO 3 

4,4;"CARTAO NET ;W; 


220 NEXT M 

230 FOR N=1 TO 13 

240 LET A=INT (RND*4 

250 IF NOT A THEN GOTO 240 
260 IF A=1 THEN LET L=7 

270 IF THEN LET 

280 IF A=3 THEN LE 

290 PRINT AT N+8,1 

300 NEXT N 

310 PRINT AT 11,22; 'THIMEB 
13,22;"0 P/OUTRO";AT 14,22; 
FIM" 


os sonhados 13 pontos aumentam e... 
dá-lhe, zebrinha! 


Nelson Hisashi Tamura é estudante do Curso 
Técnico de Eletrônica na E.P.5.G. Liceu Brás 
Cubas. Atualmente trabalha numa oficina de 
enrolamentos de motores elétricos, onde uti- 
liza um CP-200 para arquivo de dados e con- 
trole geral da oficina. 


320 IF INKEY$="F" THEN GOTO 500 
330 PRINT AT 13,21;">H";aT 14,2 
12º Pº 

340 IF INKEY$="0" THEN GOTO 370 
350 PRINT AT 14,21;">";aT 13,2 
1;* o" 

360 GOTO 320 

370 FOR N=1 TO 13 

380 PRINT AT N+8,7;" 

e1l;" "FAT N+8,15;" 

390 NEXT N 

400 NEXT W 

500 FOR N=1 TO 14 

510 PRINT AT N+8, 7; "EEIMECHHOS 


520 NEXT N 

530 PRINT AT 17,2 
";TAB 21; "MN TT 
NNE; 22 
540 GOTO 530 


900 SAVE "LOTERIA" 
999 RUN 
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CompuShop 








Com um microcomputador você cria, organiza, prevê, promove, 
controla, calcula, gerencia, analisa, arquiva, administra e, também se 
diverte. A capacidade e eficiência de um microcomputador agilizam 
e simplificam sua vida. Foi para melhor atender as suas necessidades, 

que a CompuShop criou TotaNWVare, uma infra-estrutura de 
apoio que é tudo que você e seu micro podem precisar: »= 
orientação na escolha do hardware e software, a mais 
completa linha de periféricos e acessórios, literatura 

especializada, suprimentos, cursos e treinamento, além 
de assistência técnica permanente. ) 
A CompuShop é a única loja especializada em 
microcomputadores que possui uma equipe de profissionais 

que garante todo o suporte que os clientes precisam, desde a 
grande empresa até o pequeno usuário. Venha até a CompuShop 

e conheça todas essas vantagens de perto. 


CompuShop 


São Paulo; Rua Dr. Mário Ferraz, 37 - Tel.: (011) 815 00 99 - Telex (011) 36611 BYTE BR 
Av. Presidente Juscelino Kubitschek, 889-Tel.: (011) 852 77 00 
Londrina: Av. Higienópolis, 465-Tel.: (0432) 23 7110 















Comunicado 


ICRO 

SISTEMAS 
informa aos seus 
leitores, assinantes 
e anunciantes que a 
partir desta edição 
a revista passará a 
ser impressa em 
papel tipo off-set em 
virtude da escassez 
do papel couchê no 
mercado nacional, 
causada pela grande 
expansão da 
exportação deste 
tipo de papel para 


ajudar a atender às 
metas da política 
econômica do país. 
Esta medida não 
afetará a qualidade 
editorial que MICRO 
SISTEMAS vem 
mantendo durante 
seus dois anos de 
existência, 
inclusive porque 
acrescentaremos 
cadernos de couchê 
quando necessário. 
Esta adequação à 
situação econômica 


do país visa evitar 
um desmensurado 
aumento no preço de 
capae tabelas de 
publicidade, o que 
seria contrário à 
política que sempre 
procuramos manter, 
enfrentando todas as 
dificuldades como 
pioneiros no campo 
de divulgação 

da Informática. 


A Direção 








NÃO PERCA NOSSA 
PRÓXIMA EDIÇÃO! 


O nº 29 de MICRO SISTEMAS, 
edição de fevereiro, esta 


cheinho de sensacionais 


artigos e programas pa 


equipamento. 


e Aplicações em Engenharia 


ra seu 


artigo empolgante do 
prof. Antonio Costa 


e e mais: diversos utilitários 


para você aproveitar todo o 
potencial de seu 


— cálculos de viga, lajes 


etc. 


e Inteligência Artificial, um 





equipamento. 


SEEmas 
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grande micro. 


Ágora, na hora de escolher entre um 
microcomputador pessoal simples, de fácil 
manejo e um sofisticado microcomputador 
profissional, você pode ficar com os dois. 

4 Porque chegou o novo CP 300 Prológica. 

O novo CP 300 tem preço de 
microcomputador pequeno. Mas memória 
de microcomputador grande. 

Ele já nasceu com 64 
kbytes de memória 
interna com 


expansão de memó- 


Pode ser ria externa para até 
RARA uvio quase 1 megabyte. 
impressora. 


E tem um teclado profissional, 
que dá ao CP 300 uma versatilidade incrível. 
Ele pode ser utilizado com programas de 

fita cassete, da mesma maneira que com 


programas em disco. || 64 | 
O único na sua faixa que já 
nasce com 64 kbytes de 





a 


Pode ser ligado ao seu“aparelho de TV, da 
mesma forma que no terminal de vídeo 


Compatível com 
programas em fita 
cassete ou em disco. 








de uma grande empresa. á 


Com o CP 300 você pode 
fazer conexões telefônicas 
e para coleta de dados, 
Na se utilizar 
de uma 

impressora 

e ainda dispor de todos 

os programas existentes 


Pode ser ligado 

a um televisor comum 
ou a um sofisticado 

terminal de vídeo. 


possibilidade de Permite para o CP 500 ou o 
tenexão TRS-80 americano. E o que é melhor: 


você estará apto a operar qualquer 
outro sistema de microcomputador. 
Nenhum outro microcomputador pessoal 
na sua faixa tem tantas possibilidades de 
expansão ou desempenho igual 
CP 300 Prológica. 


Os outros não PROLOGICA OGI 
fazem o que ele faz, se CA 
pelo preço que Es 
ele cobra. 


RESERVA DE mencADO 


P VALORES [e VA AIS 


Solicite ac 
demonstração 
nos principais 
magazines. 





Prorretoada 
de de Ge de Cs CE di Ge fm es 
o o co co Go o e Co mm EO 
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À vendo nas boas cosas do ramo. lojas especializados de fotovideo-som e grandes mogazines em: ALAGOAS - Maceió, Palmeira dos Indios, AMAZONAS - Manous. BAHIA 
jeza, DISTRITO FEDERAL - Brasílio, ESPÍRITO SANTO - Vitória, GOIÁS - Golônia, MATO GROSSO - Cuiabá, MINAS GERAIS - Belo Hor 
João Del Rei, Teófilo Otoni, Uberlôndio, Uberabo, Viçosa, PARAÍBA - Compino Gronde, PARÁ - Belém 
terói, Nova Friburgo, Petrópolis, Rezende, Rio de Janeiro, Volto Redon 
to, Santiago, Santa Rosa, São Leopoldo. RIO GRANDE DO NORTE - Noto 
Guarulhos. Itu, Jocorei, Jaú, Limeiro, Lins. Marília, Mogi Guaçu. M 
nerdo do Campo, São Jo 

nau, Brusque. Florinópolis, 1 


Solvodor. CEARÁ - Forto 
te, Divinópolis, Hojubo, Juiz de Fora, Poços de Caldas, São 
PARANÁ - Curitibo, Londrino. Maringá, PERNAMBUCO - Recife, RIO DE JANEIRO - Compos, Ni 
RIO GRANDE DO SUL - Bogé, Conoos, Coxias do Sul. Ijuí, Novo Hamburgo, Pelotos, Porto Alegre, Sant Anno do Livromen 
RONDÔNIA - Porto Velho. SÃO PAULO - Aroraquora, Ass: voré. Bauru, Birigui. Botucatu. Compinas, Catanduva. Franca. 
g! dos Cruzes. Ourinhos, Pirocicabo. Pirassununga. Promissã Cloro, Ribeirão Preto, Sontos, Santa Barb. d'Oeste, São Ber 
la Boo Visto, São Sebs. do Grama, São Carlos, São 1 é dos Campos. $tº André, São Paulo, Sorocabo, Suzano, Taubaté, SANTA CATARINA - Blume 

Joinville, SERGIPE - Arocojú, Se você não encontrar este equipamento no sua cidade ligue paro (011) 800 - 255 8 
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